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1. Primitive Grafikprogrammierung 

Die primitive Grafikprogrammierung ist die unterste Stufe dei 
Grafikprogramierung. Es wird hier auf die Routinen der “gra- 
phics.library* zurückgegriffen. Diese Routinen stellen dann den 
kontakt zur Hardware her. Dadurch ist es möglich, noch relativ 
komfortabel irgendwelche grafischen Effekte zu erzeugen, ohne 
sich mit der komplizierten Hardware herumschlagen zu müssen 
Leider sind die Routinen des Systems nicht ganz so schnell, als 
wenn man sie selbst programmieren würde. Dieses ist aber auf die 
Programmiersprache zurückzuführen, in der das Betriebssysteir 
geschrieben wurde. Das System wurde unverständlicherweise ir 
*C* geschrieben. Jedoch kann man sich somit unwahrscheinlich 
viel Programmierarbeit ersparen. Außerdem programmieren Sie j £ 
in Assembler und haben somit schon wieder ein kleinen Vorteil 
gegenüber den C-Programmierern. 


1.1 Bitmaps - Die Grafikspeicher 

Um auf dem Amiga Grafik bzw. Animationen zu programmieren 
benötigt man als Grundelement den Speicher, in der die Grafil 
dargestellt wird. Die sogenannte Bitmap! Damit das System weiß 
wo sich nun die Grafik befindet und wie groß sie ist, gibt es ein< 
Bitmapstruktur. Eine Struktur ist nichts anderes, als eine Tabell< 
von einer bestimmten Länge, die an das System übergebem wir« 
und in der alle nötigen Parameter für die Bitmap zu finden sind 
Das System arbeitet fast ausschließlich über solche Strukturen 
weil es halt die schnellste Möglichkeit ist, eine große Anzahl voi 
Parametern zu übergeben. Hier nun der Aufbau der Bitmap-Struk 
tur: 
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‘Bitmap‘-Struktur: (Länge = 40 Bytes) 


Offset: Typ Bezeichnung Beschreibung 


000 

Word 

BytePerRow 

002 

Word 

Rows 

004 

Byte 

Flags 

005 

Byte 

Depth 

006 

Word 

Pad 

008 

Long 

PlanePtrl 

012 

Long 

PlanePt r2 

016 

Long 

PlanePtr3 

020 

Long 

PlanePtr4 

024 

Long 

PlanePt r5 

028 

Long 

PlanePt r6 

032 

Long 

PlanePtr7 

036 

Long 

PlanePtr8 

040 


END 


Bytes pro Display-Zeile 
Anzahl der Display-Zeilen 
System-Flags 

Anzahl der Bitmaps (Tiefe) 
unbenutzt 

Zeiger auf 1. Bitmap 
(02 Farben) 

Zeiger auf 2. Bitmap 
(04 Farben) 

Zeiger auf 3. Bitmap 
(08 Farben) 

Zeiger auf 4. Bitmap 
(16 Farben) 

Zeiger auf 5. Bitmap 
(32 Farben) 

Zeiger auf 6. Bitmap 
(HAM) 

Zeiger auf 7. Bitmap 
(unbenutzt) 

Zeiger auf 8. Bitmap 
(unbenutzt) 

Ende der 'Bitmap'-Struktur 


Die ersten 8 Bytes sind Systemvariablen und werden automatisch 
V0I11 System initialisiert. Nur die PlanePtrX müssen von Ihnen 
eingetragen werden. 

Nehmen wir mal an, wir wollen einen Screen der 320 Punkte breit 
und 256 Punkte hoch ist erzeugen. Und dieser Screen soll 32 Far¬ 
ben besitzen. Also benötigen wir 5 Bitplanepointer. Jede einzelne 
Bitmap ist 320 X 256 Bits (Pixel) groß, also 320/8*256 = 10240 By- 
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tes und das gesamte Display benötigt einen Speicher von 10240*5 
= 51200 Bytes. Diesen Speicher reservieren wir am besten mit der 
Routine 'AllocMcm ()“ aus der Exec-Bibliothek. Nach dem wir 
nun den Speicher für die Bitmaps erstellt haben, legen wir die 
‘Bitmapstruktur’ an, initialisieren also die Plane-pointers! Jetzt 
endlich können wir die Bitmapstruktur vom System mit den feh¬ 
lenden Parametern füllen lassen. Dies erledigt die Routine Tnit- 
BitMap ()‘ aus der Graphics-Bibliothek. 

Um nun einen Punkt in einer bestimmten Farbe zu erzeugen, 
hängt ganz davon ab, in welcher Bitmap bzw. in welchen Bitmaps 
wir einen Punkt setzen. Gehen wir erstmal von einer Bitmap aus 
und stellen sie sich vor, diese ist genauso groß, wie ein kariertes 
Blatt Papier und auf diesem Blatt befinden sich 320 Kästchen in 
einer Reihe und davon gibt es 256 Reihen. In jedes Kästchen, wo 
Sic nun ein Loch rcinstcchcn wird ein Punkten der gleichen Posi¬ 
tion auf dem Bildschirm dargestellt. Man kann mit einer Bitmap 
also nur die Zustände 0 = kein Loch (kein Punkt) oder 1 = Loch 
(Punkt) darstellen. Man besitzt einen Wertebereich von 0 - 1. 
Diese Nummern sind gleichzeitig die Farbrcgistcrnummcrn aus 
denen die Farbe für einen Punkt entnommen werden. Um nun 
mehr Zustände darstellen zu können, nimmt man einfach noch ei¬ 
ne Bitmap dazu. Diese Bitmaps werden vom System automatisch 
übereinander gelegt. Also stellen Sie sich vor, Sic legen zwei kar- 
rierte Blätter genau übereinander. Jetzt können Sie einen Punkt 
schon in vier Farben darstellen, welches Farbregister Sie ansteu¬ 
ern, hängt ganz davon ab, wo Sic nun die Löcher rcinstcchcn. Fol- 


gende Tabelle soll dies nun verdeutlichen: 

Blatt Blatt 

Farbregister 

(Bitmap) 1: 

(Bitmap) 2: 

Bitkombination: 

(Wert): 

kein Loch 

kein Loch 

00 

00 (Hintergrundfarbe) 

Loch 

kein Loch 

01 

01 

kein Loch 

Loch 

10 

02 

Loch 

Loch 

11 

03 
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Bei drei Bitmaps ist die Bitkombination natürlich dreistellig usw. 
Je mehr Bitkombinationen, desto mehr Werte lassen sich darstel¬ 
len, desto mehr Farben stehen einem zur Verfügung. 

Hier nun ein kurzes Beispielprogramm, was auf dem Workbench- 
Screen einen kurzen Balken zeichnet: 


Prograiinaie : BitMap 


Start: move.l #intname,al 
clr. 1 dO 
move.l 4,a6 
jsr -552(a6) 
move.l dO, intbase 
tst.l dO 
beq exit 


: Zeiger auf Library-Name 
; Versionsnummer = 0 
; Execbasisadresse nach A6 
; OpenLibrary-Routine aufrufen 
; Adresse der Intuitionbasis speichern 
; auf Error 
: testen 


move.l dO,aO ; Intuitionbasis nach AO 

move.l 52(aO),aO : Zeiger auf aktuelles Fenster 

move.l 46(aO),aO ; Zeiger auf Workbench-Screenadresse 

add.l #164,aO ; AO = Anfangsadresse der Bitmapstruktur 
move.l 6(aOJ,a1 ; Al=Zeiger auf erste Bitmap vom WBScreen 

move.l 12(aO),a2 ; A2=Zeiger auf zweite Bitmap vom WBScreen 


move.l #640/6,dO ; Länge einer Zeile in Bytes 

move.l #60/6+55*640/6,dl ; X,Y Position des Balkens 
add.l dl.al ; Anfangsadresse in der Bitmap! errechnen 

add.l dl,a2 ; Anfangsadresse in der BitmapZ errechnen 

clr.w d2 ; Zähler für Länge des Balkens 

clr.w d3 


draw_loop: move.b #Sff,(al,d3) ; 6 Punkte in einer Zeile zeichnen 

; (Bitmap 1) 

move.b #$ff,fa2,d3) ; 6 Punkte in einer Zeile zeichnen 

; (Bitmap 2) 
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add.w #1,d2 

Zeilenzähler um 1 erhöhen 

move.w d0,d3 

Länge einer Zeile nach D3 

mulu d2,d3 

mit Zeilenposition multiplizieren 

emp.w #50,d2 

schon 50 Zeilen ? 

bne draw_loop 

wenn nicht, dann weiter 

exit: move.l intbase,al 

Intuitionbasis nach Al 

cmp.l #0,a1 

auf Error 

bne exitl 

testen 

rts 

wenn Error, dann Programmende 

exitl: move.l 4,a6 

Execbasisadresse nach A6 

isr -414(a6) 

C1oseLibrary-Routine aufrufen 

rts 

Programmende 

, rdidBCiei 

intname: dc.b "intuition. 1ibrary" 

0 


even 

intbase: dc.l 0 


Prograiiende 


Dieses Programm ist so gut dokumentiert, daß jede weitere Erläu¬ 
terung überflüssig ist. 
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1.2 Der Rasterport 

Fast alle Routinen des Betriebsystems benötigen eine Raster- 
Port-Struktur. In dieser Struktur werden nähmlich alle wichtigen 
Parameter für die Grafikprogrammierung gespeichert. Alle Unter¬ 
strukturen wie z. B. die Bitmapstruktur, werden mit dem Raster- 
Port verbunden. 

In dem RasterPort stehen unteranderem Dinge, wie Farbe des Vor¬ 
dergrundstiftes, Größe und Breite des Screens bzw. Windows, wel¬ 
cher Zeichensatz (Font) gerade verwendet wird usw. 

Wie schon kurz erwähnt, besitzt jedes Window und jeder Screen 
seine eigene RasterPort-Struktur. Mit anderen Worten also, der 
RasterPort verwaltet die Zeichenebenen auf dem Amiga! Die Ra¬ 
sterPort-Struktur ist wie folgt aufgebaut: 

‘RastPort‘-Struktur (Länge = 100 Bytes) 


Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Long 

Layer 

Zeiger auf ‘Layer'-Struktur 

004 

Long 

BitMap 

Zeiger auf ‘BitMap'-Struktur 

008 

Long 

AreaPtrn 

Zeiger auf das AreaFill-Muster 

012 

Long 

TmpRas 

Zeiger auf “TmpRas“-Struktur 

016 

Long 

Areainfo 

Zeiger auf ‘Arealnfo'-Struktur 

020 

Long 

Geisinfo 

Zeiger auf ‘Gelslnfo'-Struktur 

024 

Byte 

Mask 

Schreibmaske (wieviel Bitmaps 
zugelassen sind) 

025 

Byte 

FgPen 

Farbregisternummer für Vorder¬ 
grundfarbe 

026 

Byte 

BgPen 

Farbregistemummer der Hinter¬ 
grundfarbe 

027 

Byte 

AOIPen 

Farbregisternummer der AreaFill- 
Outlinefarbe 
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028 

Byte 

DrawMode 

029 

Byte 

AreaPtSz 

030 

Byte 

LinePatCNT 

031 

Byte 

Dummy 

032 

Word 

Flags 

034 

Word 

LinePtrn 

036 

Word 

CP X 

038 

Word 

CP_Y 

040 

Byte 

Minterms(8) 

048 

Word 

PenWidth 

050 

Word 

PenHeight 

052 

Long 

TextFont 

056 

Byte 

AlgoStyle 

057 

Byte 

TxFlags 

058 

Word 

TxHeight 

060 

Word 

TxWidth 

062 

Word 

TxBaseLine 


064 

Word 

TxSpacing 

066 

Long 

RP-User 

070 

Word 

7 Words 

084 

Long 

2 Longs 

092 

Byte 

8 Bytes 

100 


END 


ZeichenModi (0=Jaml, l=Jam2, 
2=Complement, 3=invers) für Rou 
tine 'SetDrMd ()“ 

Höhe des AreaFUI-Musters (2'n 

Words)) 

unbenutzt 

Line Draw Pattern Preshift 
verschiedene Kontrollbits (First 
Dot,OneDot etc.) 

16 Bits für Linienmuster 
x-Position des Grafikcursors 
y-Position des Grafikcursors 
8 x 1 Byte für Minterms (Funkti 
on unbekannt) 

Cursorbreite 

Cursorhöhe 

Zeiger auf “TextFont'-Struktur 
Zeichensatzmodus (Style-Flag) 
textspezifische Flags 
Höhe des Zeichensatzes 
durchschnittliche Zeichenbreite 
Texthöhe ohne Unterlängen (für 
“Text“-Routine - Wert zu Y-Positi 
on addieren = genaue Y-Pos.) 
Zeichenabstand 

Zeiger auf evtuelle Userdaten (un 

wichtig!) 

reserviert 

reserviert 

reserviert 

Ende der Datenstruktur 


Mit der Routine TnitRastPort ()“ aus der Graphics-Biliothck wird 
diese Struktur initialisiert! 
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Es folgt nun eine Beschreibung der wichtigsten Teile des Raster- 
Ports: 

Offset 4: Bit Map 

Hier befindet sich die Adresse der Bitmapstruktur. Wie eine Bit- 
Map-Struktur aufgebaut und was eine Bitmap überhaupt ist, wur¬ 
de j a bereits schon oben weiter erläutert. Wenn man allerdings 
eine eigene BitMap-Struktur angelegt hat, muß man die Adresse 
hier speichern. 

z. B. move.l #bitmap,rastport+4 


Offset 20: Geisinfo 

Wenn man das Animationssystem der Graphics-Bibliothek benut¬ 
zen, also BOBs und Sprites darstellen möchte, muß man als erstes 
das Animationssystem initialisieren. Dieses geschieht über die 
Gelsinfo-Struktur. Danach muß dann die Adresse dieser Struktur 
hier gespeichert werden. 

z. B. move.l Igelsinfo,rastport+20 

Die Struktur wird im Kapitel "Das Animationssystem" beschrie¬ 
ben. 


Offset 24: Mask 

Hier steht die Anzahl der Bitmaps, welche Beschrieben werden 
können. Normalerweise steht hier der Wert 255. Durch ändern des 
Wertes z. B. auf Null, wird nichts mehr auf dem Screen gezeich¬ 
net. 


9 




1. Kapitel 


Primitive Grafikprogrammicrung 


Offset 36 und 38: CP_X und CP_Y 

Diese beiden Wörter beinhalten die Position des Grafikcursors. 
Man kann diese Werte mit der Routine 'Movc ()' aus der Gra- 
phics-Biblitothek setzen oder direkt hier hinein - Poken\ was zum 
selben Ergebnis führt, jedoch um einiges schneller ist. 


Offset 56: AlgoStyle 

Wie Ihnen bestimmt schon aufgefallen ist, kann der Amiga Zei¬ 
chensätze in verschiedenen Formen auf den Bildschirm bringen 
(schräg etc.). In welcher Form der Zeichensatz auf dem Screen er¬ 
scheinen soll, hängt ganz von dem Wert ab, der hier gespeichert 
ist: 

Wert: Form: 

0 Normal 

1 Underline (unterstrichen) 

2 Bold (Fettdruck) 

4 Italic (schräg - kursiv) 

Es ist auch möglich mehrere Formen gleichzeitig darzustellen. 
Dazu braucht man nur die gewünschten Werte zusammenzuaddie¬ 
ren. Wie diese Werte gesetzt werden, wird im Font-Kapitel be¬ 
schrieben. 


Das war nun eine kurze Beschreibung der wichtigsten Parameter 
der RastPort-Struktur. Die noch fehlenden Parameter, sofern sic 
von Bedeutung sind, werden in anderen Kapiteln erläutert die 
natürlich auch mit Beispielprogrammen versehen sind. 
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1.3 View - Der Verwalter 

Da ein Bild 50 mal (50 Hz) in der Sekunde aufgebaut wird, muß 
der Programmierer dafür sorgen, daß die Speicherstellen, in denen 
die Adressen der Bitmaps stehen, nach 1/50 Sekunde wieder auf 
den Anfangswert gesetzt werden. Denn das Bild wird Pixelweisc 
aus dem Speicher, über den Rasterstrahl, auf den Bildschirm 
übertragen. Damit der Rasterstrahl weiß, an welcher Stelle er sich 
gerade im Speicher befindet, werden die Register, in denen die 
Adressen der Bitmaps gespeichert sind, intern raufgezählt. Wenn 
nun das Bild komplett auf dem Bildschirm übertragen wurde, 
würden die Register weiter raufgezählt werden, was zur Folge hät¬ 
te, daß immer ein anderes Bild auf dem Bildschirm erscheint. Es 
gibt nur zwei Möglichkeiten dies zu bewerkstelligen; entweder im 
Vertikal-Blank-lnterrupt oder über den Copper. 

Das System benutzt dazu den Copper, weil cs die einfachste und 
schnellste Art ist. Der Copper (Coprozessor) benötigt dazu eine 
sogenannte Copperlist, in der Befehle enthalten sind, die der Cop¬ 
per abarbeitet. 

Um nun sein eigenes Display, mit Hilfe einer Copperlist, über die 
Systemroutinen zu programmieren und nicht direkt über die Hard¬ 
ware, exestieren folgende Strukturen: 

1. ‘View‘-Struktur 

2. ‘ViewPort‘-Struktur 

Die 'Vicw'-Struktur verwaltet das gesammte Display auf dem 
Amiga, es ist immer nur eine 'View'-Struktur im System, sie stellt 
die wichtigste Verbindung zwischen System und User dar. 

Der Viewport, der mittels der ‘ViewPort'-Struktur beschrieben 
wird, ist das ‘Fenster 4 , durch das man seine Bitmap auf dem Moni¬ 
tor sehen kann. Man kann soviele ViewPortstrukturen (Screens) 
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erzeugen wie man möchte, sie werden alle durch die 
"View'-Struktur miteinander verbunden. Mit Hilfe der Routine 
‘MakeVPort ()‘ werden dann die einzelnen Copperlisten für Farbe 
etc. erzeugt bzw. neu berechnet. Mit der Routine “MrgCop ()“ 
werden dann die einzelnen Copperlisten zu einer zusammenge¬ 
faßt. Und die Routine 'LoadView ()‘ startet dann die neue Copper¬ 
liste über die Hardware. 


Es folgt nun eine Beschreibung der View-Struktur: 


‘View‘-Struktur: (Länge =18 Bytes) 


Offset 

Typ 

Bezeichnung 

000 

Long 

ViewPort 

004 

Long 

LOFCprList 

008 

Long 

SHFCprList 

012 

Word 

DyOffset 

014 

Word 

DxOffset 

016 

Word 

Modes 

018 


END 


Beschreibung 

Zeiger auf erste ‘View 
Port'-Stru ktur 

Zeiger auf LongFrame-Copperli 
ste wird mit ‘MrgCop ()“ erzeugt 
Zeiger auf ShortFramc-Copperli 
ste 

y-Position des Displays (wird 
vom System init.) 
x-Position des Displays (wird 
vom System init.) 

Modus-Flag (Inerlace-Flag hier 
setzen, falls gewünscht) 

Ende der ‘View'-Struktur 


Wenn man nicht auf Screens der Intuitions-Bibliothek 
zurückgreifen möchte, sondern ein absolut eigenes Display erzeu¬ 
gen will, dann erst muß man eine View-Struktur anlegen. 
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Diese Struktur muß nur mit der angelegten ViewPort-Struktur ver¬ 
bunden werden (Offset 0). Falls ein Interlace Display gewünscht 
wird, muß bereits hier schon, in ’Modes“ das Interlace-Flag ge¬ 
setzt werden (Bitbelegung siehe ViewPort-Struktur). 

Solche Displays haben allerdings einen Nachteil bzw. Vorteil; es 
können keine Menüs mehr programmiert werden und das Display 
kann auch nicht mehr mit der Maus hoch oder runter verschoben 
werden. 
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1.4 ViewPort - Das Grafikfenster 

Wie schon erwähnt, ist der ViewPort das Grafikfenster, durch den 
man seinen Screen auf dem Bildschirm sieht. Jeder Screen besitzt 
seinen eigenen ViewPort. Dadurch ist es nähmlich möglich meh¬ 
rere Screens zu überlappen und wenn man mit der Maus seinen 
Screen hoch bzw. runter bewegt, werden die Coppcrlisten für die¬ 
sen ViewPort (Screen) neuberechnet und mit der View-Struktur 
verbunden. Danach wird dann die neue Copperliste für den VIEW 
erzeugt und über die Hardware gestartet. Jetzt erst erscheint der 
Screen an seiner neuen Position.dies erledigt das System im Ra¬ 
sterinterrupt, deswegen kann man die Screens auch nicht beson¬ 
ders schnell bewegen, dafür aber fließend. 

Datenstruktur des ViewPort: 

‘ViewPort‘-Struktur: (Länge = 40 Bytes) 


Offset 

Typ 

Bezeichnung 

000 

Long 

Next 

004 

008 

Long 

Long 

ColorMap 

Dsplns 

012 

Long 

Sprlns 

016 

Long 

Clrlns 

020 

Long 

UCopList 

024 

Word 

DWidth 

026 

Word 

DHeight 


Beschreibung 

Zeiger auf nächste “View 
Port“-Struktur 

Zeiger auf “ColorMap'-Struktur 
Zeiger auf Display-Copperlist 
Struktur 

Zeiger auf Sprite-Copperliststruk 
turl 

Zeiger auf Sprite-Copperliststruk 
tur2 

Zeiger auf “UCopLisC-Struktur 
(für User) 

Breite des Displays (Screen) in Pi 
xel 

Höhe des Displays (Screen) in 
Zeilen 
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028 

Word 

DxOffset 

X-Pos. des Displays (Scrcen) 

030 

Word 

DyOffset 

Y-Pos. des Displays (Screen) 

032 

Word 

Modes 

ViewPort-Modi: 


Wert 

$0000 

= 

Normal alle 

Bits 

=0 

Wert 

$0002 

= 

Gen 1ockvideo 

Bit 

1=1 

Wert 

$0004 

= 

Interlace 

Bit 

2=1 

Wert 

$0040 

= 

PFBA 

Bit 

6=1 

Wert 

$0060 

= 

ExtraHalfbrite 

Bit 

7=1 

Wert 

$0100 

= 

GenlockAudio 

Bit 

6=1 

Wert 

$0400 

= 

DualPlayField 

Bit 

10=1 

Wert 

$0600 

r 

Hold + Modify 

Bit 

11=1 

Wert 

$2000 

= 

VP-Hide 

Bit 

13=1 

Wert 

$4000 

= 

Sprites 

Bit 

14=1 

Wert 

$6000 

= 

Hires 

Bit 

15=1 


034 

Word 

reserved 

reserviert 

036 

Long 

Rasinfo 

Zeiger auf “RasInfo“-Struktur 

040 


END 

Ende der 'ViewPort'-Struktur 


Nach dem die Routine “InitVPort ()“ aufgerufen wurde, müssen 
nachträglich DWidth, DHeight, und Modes mit den gewünschten 
Werten gefällt werden. Wenn man bei “Modes“ das “VP-Hide“ Bit 
setzt, wird dieser Viewport in den Hintergrund gedrängt und somit 
nicht mehr vom System bearbeitet. So kann man z. B. die Abfrage 
der rechten/linken Maustaste abstellen. Wenn man in seinem 
ViewPort Sprites verwenden will, muß man das “Sprites“ Bit in 
“Modes“ setzen. Die restlichen Modis werden im Kapitel “Grafik- 
Modis“ beschrieben. 

Des weiteren sind in der “ViewPort'-Struktur noch zwei Zeiger, 
welche einmal auf die “ColorMap“-Struktur und auf die ‘Rasln- 
fo“-Struktur zeigen. In der ColorMap-Struktur stehen natürlich die 
Farben für den dazugehörigen ViewPort. Die “RasInfo“-Struktur ist 
zuständig für die Bitmapverwaltung. Mit ihr ist es möglich Scrol¬ 
ling und DoubleBuffering-Bobs zu programmieren. Die Anfangsa¬ 
dressen dieser beiden Strukturen müssen, nachdem sie von Ihnen 
angelegt wurden, hiereingetragen werden. 
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1.5 Colormap - Der Farbenmischer 

Bis jetzt sprachen darüber, wie man eine Bitmap erzeugt, sie ini¬ 
tialisiert und wie man Punkte setzt bzw. löscht. Jedoch wie trägt 
man die Farbwerte der gewünschten Farben in die entsprechenden 
Register ein? 

Dazu exestiert, wie sollte es auch anders sein, eine Struktur - die 
Color- Map-Struktur. In ihr sind die Farbwerte und die Anzahl der 
Farben gespeichert und ist wie folgt aufgebaut: 

‘ColorMap‘-Struktur: (Länge = 8 Bytes) 


Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Byte 

Flag 

System-Flag 

001 

Byte 

Typ 

System 

002 

Word 

Count 

Anzahl Farben (max. 32) 

004 

Long 

ColorTable 

Zeiger auf einen Puffer mit 32 
Words (64 Bytes) in dem die Färb 
werte stehen 

008 


END 

Ende der ‘ColorMap'-Struktur 


Unter ‘Count* wird die Anzahl der Farben gespeichert. Diese 
hängt, wie Sie bereits wissen, von der Anzahl der verwendeten 
Bitmaps ab. Den ‘ColorTable*- Zeiger müssen Sie selbst eintra¬ 
gen. Dort wird die Anfangsadresse von einem 32 Word großen Ar- 
ray gespeichert. Dieses Array beinhaltet nähmlich die maximal 32 
möglichen Farbwerte. 

move.l #colortable,colormap+4 
rts 

colortable: blk.w 32,0 : 32 Word-Array 
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Obiges kleines Assemblerlisting zeigt, wie man diesen Array pro¬ 
grammiert. 

Die Hardwareregister, welche die Farben aufnehmen, sind jeweils 
1 Word Groß. Ein Word besitzt ja bekanntlich 16 Bits, jedoch 
werden für die Farben nur die unteren 12 Bits genutzt. Dabei ent¬ 
halten die Bits 11-8 den Rot-, die Bits 7-4 den Grün- und die Bits 
3-0 den Blauanteil einer Farbe. 

So nun haben wir die Farben initialisiert. Aber woher weiß das 
System, wo sich die Colormap-Struktur im Speicher befindet? Da¬ 
zu müssen Sie noch die Anfangsadresse der Colormap in die View- 
Port-Struktur eintragen (Offset 4). 

z. B. move.l Icolormap,viewport+4 

Allerdings werden die Farben nicht sofort sichtbar. Das hängt da¬ 
ran, daß die Copperliste, die die Farben verwaltet, erst immer auf 
den neusten Stand gebracht werden muß. Dieses erreicht man 
durch den Aufruf der drei Routinen “MakeVPort ()‘, “MrgCop ()“ 
und ‘LoadView ()“ (bei Intuition-Screens reicht ‘RemakeDisplay 
()')• 

Man kann sich die Colormap-Struktur aber auch vom System anle- 
gen lassen. Diese ColorMap wird mit den Farben des aktuellen 
Screens geladen. Das System bietet einem dazu zwei Routinen. 
Eine die die Colormap-Struktur anlegt und eine die sie wieder 
frei gibt. 

Routine : GetColorMap (entries) (DO) 

Library : graphics.1ibrary 

Offset -570 = -$23a 

Parameter: DO = Anzahl Farben (max. 32 Farben) 

Rückgabe : in DO = Anfangsadresse der vom System angelegten 'Color- 
Map'-Struktur 
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Erklärung: Diese Routine erzeugt eine ColorMap-Struktur, deren 
Adresse in DO zurückgegeben wird. Wenn eine Null zurück¬ 
gegeben wird, dann konnte nicht genug Speicher für diese 
Routine angelegt werden. Diese vom System angelegte 
Struktur muß man dann nur noch mit der 'View- 
Port'-Struktur verbinden lOffset 4). 


Routine 

Library 
Offset 
Parameter: 

Rückgabe : 
Erklärung: 


FreeColorMap (ColorMap) (AO) 

graphics.Iibrary 
-576 = -$240 

AO = Anfangsadresse der ColorMap-Struktur, die mit der 

Routine 'GetColorMap ()' angelegt wurde 

keine 

Diese Routine gibt den Speicher wieder frei, der mit 
'GetColorMap II' für die 'ColorMap'-Struktur angelegt 
wurde. 


Das System bietet einem noch die Möglichkeit über ein paar Rou¬ 
tinen, mit der Colormap ein wenig herum zu manipulieren: 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


LoadRGB4 (ViewPort,Co 1ors,Count) (AO,Al,DO) 

graphics. 1ibrary 
-192 = -ScO 

AO = Anfangsadresse der zu diesem Display gehörenden 
ViewPort-Struktur 

Al = Anfangsadresse vom einem 32 Word gro®ßen Array, in 
denen sich die Farbwerte befinden 
DO = Anzahl der Farbregister, welche mit neuen Farben 
gefül1t werden sol1 

keine 

Diese Routine lädt in die ColorMap des angegebenen View- 
Ports die gewünschten Farbwerte, welche sich in dem Array 
befinden. Es müssen danach aber erst die Copperlisten neu 
berechnet werden, damit der Farbwechsel sichtbar wird. 
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Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


SetRGB4 (VievPort,Register,rot,gelb,blau) (AO, DO, Dl, 

D2, D3) 

graphics. 1ibrary 


-266 = 

-$120 


AO = 

Anfangsadresse der 
V/iewPort-Struktur 

zu diesem Display gehörenden 

DO = 

Farbregisternummer, 

in dem die Farbänderung vor- 


genommen werden sol1 

(0-31) 

Dl = 

Rotanteil der Farbe 

(Wert von 0-15) 

D2 = 

Gelbanteil der Farbe 

(Wert von 0-15) 

D3 = 

Blauanteil der Farbe 

(Wert von 0-15) 

keine 




Diese Routine lädt das angegebene Farbregister des ent¬ 
sprechenden ViewPorts mit dem gewünschten Wert. Die 
Farbänderung wird sofort sichtbar, die Copperlisten 
brauchen also nicht neu berechnet werden. 


GetRGß4 (ColorMap,entry) (AO,DO) 

graphics. 1ibrary 
-562 = -$246 

AO = Anfangsadresse der zu diesem Display gehörenden 
ColorHap-Struktur 

DO = Farbregisternummer, aus dem der Farbwert entnom¬ 
men werden sol1 (0-31) 

in DO = Farbwert des angegebenen Farbregisters 
Diese Routine gibt den Farbwert des gewünschten Farbre¬ 
gisters in DO zurück. 
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1.6 Raslnfo - Die Bildverbindung 

Jetzt fehlt uns nur noch der Rasinfo-Zeiger aus der ViewPort- 
Struktur. Denn was nützt uns eine Bitmap, die irgend wo im Spei¬ 
cher liegt. Woher soll der ViewPort wissen, wo die BitMap im 
Speicher liegt. Und ab welcher Position die BitMaps auf dem 
Bildschirm erscheinen sollen. Durch die Positionierung ist es 
nähinlich möglich, bei Übergroßen Bitmaps nur einen Teil anzei- 
gen zu lassen. 

Auch hierfür exestiert wiederum eine Struktur, welche sich Ra¬ 
slnfo nennt. Die Rasinfo-Struktur ist zuständig für die Bitmapver- 
waltung. Mit dem Raslnfo ist es auch möglich, Scrolling und dop¬ 
pelt gepufferte BOBs zu programmieren. 

Die Raslnfo-Struktur als solches, ist eigentlich absolut unwich¬ 
tig. Sic fungiert nur als Bindeglied zwischen BitMap- und View- 
Port-Struktur. Hier nun der Aufbau der Raslnfo-Struktur: 


‘RasInfo‘-Struktur: (Länge = 12 Bytes) 


Offset Typ 

Bezeichnung 

Beschreibung 

000 

Long 

Next 

Zeiger auf 2. ‘Raslnfo'-Struktur 
(nur wenn DualPlayfield benutzt 
wird) 

004 

Long 

Bitmap 

Zeiger auf 'Bitmap“-Struktur 

008 

Word 

RxOffset 

X-Position in der Bitmap (Normal 
=0) - für größere Bitmaps, um z.B. 




Scrolling zu erzeugen 

010 

Word 

RyOffset 

Y-Position in der Bitmap (Normal 
=0) s.o. 

012 


END 

Ende der ‘Raslnfo'-Struktur 
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Um die BitMap mit der Rasinfo-Struktur zu verbinden, muß man 
in ‘BitMap* (Offset 4) die Anfangsadresse der BitMap-Struktur 
eintragen. Danach kann man die Rasinfo-Struktur mit dem View- 
Port verbinden. 

z. B. move.l #bitmap,rasinfo+4 

move.l #rasinfo,viewport+36 


1.7 Wie man Strukturen initialisiert! 

Bisher wurden die wichtigsten Strukturen, mit denen das System 
arbeitet, beschrieben. Es folgt jetzt eine Beschreibung der Sy¬ 
stem-Routinen, mit denen man diese Strukturen initialisieren 
bzw. manipulieren kann. 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


InitBitMap (BitMap,depth,vidth,heigth) (A0.D0.Dl.D2) 

graphics.Iibrary 
-390 = -$106 

A0 = Anfangsadresse der angelegten 'BitMap'-Struktur 
DO = Anzahl Bitplanes (Tiefe) 

Dl = Breite der Bitmap 
D2 = Höhe der Bitmap 
keine 

Diese Routine initialisiert die angelegte 'Bit¬ 
Map'-Struktur mit den wichtigsten Werten. Die Pla- 
nePtrX-Adressen müssen dann nur noch in der BitMap- 
Struktur von Ihnen selbst eingetragen werden. 
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Routine initRastPort (Rastport) (Al) 

Library graphics.Iibrary 

Offset -198 = -$c6 

Parameter: Al = Anfangsadresse der 'RastPort'-Struktur die man an¬ 
gelegt hat 

Rückgabe : keine 

Erklärung: Diese Routine initialisiert die angelegte 'Rast¬ 
Port'-Struktur mit den wichtigsten Werten 


Routine : initViev (View) (Al) 

Library graphics.1ibrary 
Offset : -360 = -$168 

Parameter: Al = Anfangsadresse der angelegten 'View'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine initialisiert die angelegte 'View'-Struktur 
mit den wichtigsten Werten 


Routine initVPort (ViewPort) (AO) 

Library : graphics.1ibrary 
Offset : -204 = -$cc 

Parameter: AO = Anfangsadresse der angelegten 'ViewPort'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine initialisiert die angelegte 'View- 
Port'-Struktur mit den wichtigsten Werten 
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Routine : MakeVPort (View,ViewPort) (A0,Al) 

Library : graphics.1ibrary 
Offset : -216 = -$d8 

Parameter: AO = Anfangsadresse der 'View'-Struktur 

Al = Anfangsadresse der 'ViewPort'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine erzeugt die einzelnen Copperliststrukturen 
und setzt diese in die entsprechenden Zeiger in der 
'ViewPort'-Struktur ein. Vorher muß natürlich die View- 
Port-Struktur mit der View-Struktur verbunden werden. 


Routine : MrgCop (View) (Al) 

Library : graphics.1ibrary 
Offset -210 = -$d2 

Parameter: Al = Anfangsadresse der 'View'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine erzeugt aus den einzelnen Copperliststruk¬ 
turen die mit 'MakeVPort ()' erzeugt wurden eine einzige 
Copperlist-Struktur. Diese wird dann in die View-Struktur 
eingehängt 1LongF rame-Copperliststruktur) 


Routine : LoadView (View) (Al) 

Library : graphics.1ibrary 
Offset -222 = -$de 

Parameter: Al = Anfangsadresse der 'View'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine startet die Copperliste, auf die die Long- 
Frame-Copperlist-Struktur zeigt, über die Hardware. Und 
erzeugt somit das fertige Bild. 
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Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


FreeVPortCopLists (VievPort) (AO) 

graphics.1ibrary 
-540 = -S 21c 

AO = Anfangsadresse der 'ViewPort'-Struktur 
keine 

Diese Routine gibt den Speicher wieder frei, der für die 
einzelnen Copperlisten durch die Routine 'MakeVPort ()' 
vom System belegt wurde. 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


FreeCprList (CprList) (AO) 

graphics. 1ibrary 
-564 = -$234 

AO = Anfangsadresse der LongFrame-Copperliststruktur, 
diese ist in der View-Struktur bei Offset 4 zu finden. 
Bei Hires muß auch ShortFrame-Copperliststruktur wieder 
freigegeben werden. (Offset 8) 
keine 

Diese Routine gibt den Speicher wieder frei, der für die 
LongFrame-Copperliststruktur durch die Routine 'MrgCop 
()' vom System belegt wurde. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


ViewAdress () 

intuition.1ibrary 
-294 = -$126 
keine 

in DO = Anfangsadresse der aktuellen 'View'-Struktur 
Diese Routine gibt in DO einen Zeiger auf die aktive 
'View'-Struktur, die vom System verwaltet wird, zurück. 
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Routine : viewPortAdress (Window) (AO) 

Library : intuition.1ibrary 

Offset -300 = -$12c 

Parameter: AO = Zeiger auf 'Window'-Struktur 

Rückgabe : in DO = Anfangsadresse der aktuellen 'ViewPort'-Struktur 
Erklärung: Diese Routine gibt in DO einen Zeiger auf die zu diesem 
Window gehörende 'ViewPort'-Struktur zurück. 


Routine : MakeScreen (Screen) (AO) 

Library : intuition.1ibrary 

Offset -378 = -517a 

Parameter: AO = Zeiger auf 'Screen'-Struktur 

Rückgabe : keine 

Erklärung: Diese Routine führt die Funktion 'MakeVPort ()' für den 
ViewPort des angegebenen Screen durch. 


Routine : RethinkDisplay () 

Library intuition.1ibrary 
Offset : -390 = -$186 
Parameter: keine 
Rückgabe : keine 

Erklärung: Ruft für alle Screens 'MrgCop ()' und 'Loadview ()' auf 


Routine : ReiakeDisplay () 

Library : intuition.1ibrary 

Offset : -384 = -$180 

Parameter: keine 
Rückgabe : keine 

Erklärung: Die Copperlisten werden für alle Screens neu berechnet 
[führt 'MakeScreen ()' und danach 'RethinkDisplay ()' 
aus] 
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Die Initialisierung einer RastPort-Struktur könnte z. B. so ausse- 
hen: 


move.l gfxbase.ao 
move. 1 Irastport al 
jsr -196(a6) 


Basisadresse der graphics.1ibrary 
Zeiger auf RastPort-Struktur 
Routine InitRastPort aufrufen 


1.8 Das erste eigene Display 

Da wir jetzt die wichtigsten Srukturcn und Routinen des Systems 
kennen, werden wir mit deren Hilfe ein eigenes Display pro¬ 
grammieren. 

Um nach Beendigung des Programms, wieder auf das alte Display 
zurückschalten zu können, muß man als erstes den Zeiger (An¬ 
fangsadresse) auf die aktive View-Struktur speichern. Dazu rufen 
wir einfach die Routine ‘ViewAdress ()“ auf und speichern den 
Rückgabewert aus DO in einem Puffer zwischen. Wenn man dann 
aufs alte Display zurück schalten will, ruft man lediglich die 
Routine 'LoadView ()“ auf, der wir in A1 die Adresse des zuvor ge¬ 
speicherten ViewPorts übergeben. 

Bevor wir jedoch mit dem eigentlichen Programm beginnen 
können, müssen natrülich erst einmal alle Strukturen angelegt 
und soweit es geht mit Parametern versorgt werden. Danach öffnen 
wir die Grafik- und Intuition- Bibliothek und reservieren mit der 
Routine 'AllocMem ()' Speicher für die BitMaps. 

Jetzt erst speichern wir den Zeiger des aktiven Views und initiali¬ 
sieren die angelegten Routinen. 
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Mit der Routine ‘GctColorMap ()' lassen wir uns vom System eine 
ColorMap anlegen und speichern den Rückgabewert aus DO zwi¬ 
schen. 

Nachdem wir schon die Strukturen initialisiert haben, müssen wir 
nachträglich die Parameter Breite, Höhe und Modus in der View- 
Port-Struktur setzen. 

Nun können wir die Strukturen miteinander verbinden und durch 
aufrufen der drei Routinen ‘MakeVPort ()', “MrgCop ()“ und 
‘LoadView ()“ die neue Copperliste starten, wodurch unser Display 
auf dem Bildschirm sichtbar wird. 

Wenn man sein Programm beenden möchte, sollte man natürlich 
den belegten Speicher wieder freigeben und auf das alte Display 
wieder zurückschalten. 

Hier nochmal in Kurzform, die Schritte, welche durchzuführen 
sind, um ein eigenes Display zu erzeugen: 


01 . 

View-, VicwPort-, Rasinfo-, ColorMap-, 
Rast Port-Strukturen anlegen 

BitMap-, 

02. 

graphics und intuition.library öffnen 


03. 

Speicher für Bitmaps reservieren 


04. 

Zeiger auf aktive View-Struktur speichern 
dress ()'] 

1‘ViewA- 

05. 

InitView () aufrufen 


06. 

InitVPort () aufrufen 


07. 

InitBitMap () aufrufen und InitRastPort () 


08. 

GetColorMap () aufrufen und Rückgabewert 
[ColorMap-Struktur] 

speichern 

09. 

ViewPort-Parameter init. (Breite, Höhe und Modus) 

10 . 

Strukturen miteinander Verbinden 


11 . 

MakeVPort () aufrufen 


12. 

MrgCop () aufrufen 
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13. LoadView () aufrufen 

14. ... 

14. ... Hier steht das weitere Programm ... 

14. ... 

;. Mit folgenden Schritten wird aufs alte Display 

zurückgeschaltet 

Exit: 

15. LoadView () aufrufen [mit zuvor gespeicherter View- 
Adresse] 

16. FreeColorMap () aufrufen 

17. FreeVPortCopLists () aufrufen 

18. FreeCprList () aufrufen 

19. Speicher für Bitmaps wieder freigeben 

20. graphics und intuition.library wieder schließen 

Damit das erlernte nicht alles Theorie bleibt, folgt ein Programm, 
was obige Schritte durchführt. Also ein Primitiv-Display erzeugt. 


- Prograunaie = Display- 

breite = 320 : BiImapbreite (muß durch 8 teilbar sein) 

höhe = 256 : Bitmaphöhe 

tiefe = 5 ; Anzahl Bitplanes 

- Librarys öffnen - 

bsr openlibrarys 

- Speicher für Bitiaps reservieren - 

move.1 #((breite/8) x tieferhöhe),d0 
move.l #$10002,dl 
move.l 4,a6 

jsr -198(a6) ; AllocMem 

move.l dO,displaybase 
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tst.l dO 
beq exit 


•-aktiven View speichern- 

move.l intbase,a6 

jsr -294(a6) ; ViewAdress 

move.l dO.oldview 

.— View-Struktur init. . 

move.l gfxbase,a6 
move.l #view,al 

jsr -360(a6) ; InitView 

;-ViewPort-Struktur init. - 

move.l gfxbase,a6 
move.l Iviewport.aO 

jsr -204(a6) ; InitVPort 

:-Bitiap-Struktur init. - 

move.l gfxbase,a6 
move.l #bitmap,a0 
move.l #tiefe,d0 
move.l #breite,dl 
move.l #höhe,d2 

jsr -390(a6) ; InitBitMap 

—- Bitiap Pointer errechnen (PlanePrtX)- 

move.l displaybase,aO ; Basis des Display 

move.l #((breite/8) x höhe),d0 ; Höhe einer Bitmap 

move.w #tiefe-l,dl 
move.l #bitmap,al 
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add.l #8,a1 
maploop: 
move. 1 aO, (al 1 + 
add.l d 0,aO 
dbra dl,maploop 

;-Rasterpcrt init. - 

move.l trastport.al 
move.l gfxbase.aö 

jsr -1981a6) ; InitRastPort 

;-ColorMap-Struktur voi Systei anlegen lassen 

move.l gfxbase.aö 
move.l #32,dO 

jsr -570(aö) ; GetColorMap 

move.l dO.colormap 
tst.l dO 
beq exil 


.. Viewport-Paraieter init. (Modus = Nonal) 

move.w #breite,viewport+24 
move.w #höhe,viewport+26 

-Strukturen ineinander verbinden.— 

- Viewport in View einhängen - 

move.l fviewport.view 

..Farbtabelle in Viewport einhängen- 

move.l colormap,viewport+4 
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-R aS Inf 0 -St rU kt Ur in VievPort-St.rukt.ur einhängen- 

move.l trasinfo,viewport+36 

- Bituap-Struktur in Rasinfo-Struktur einhängen - 

move.l tbitmap,rasinfo+4 

- Bitmap-Struktur in RastPort-Struktur einhängen - 

move.l #bitmap,rastport+4 

- Copperli S ten konstrukieren - 

move.1 gf xbase,a6 
move.l #view,aO 
move.l #viewport,a1 

jsr -216(a6) ; MakeVport 

- Copperlisten zu einer Copperliste zusannenfassen - 

move.l gf xbase,a6 
move.l #view,al 

jsr -210(a6) ; MrgCop 

move.w #1,copper ; Copperstatus = 1 , es wurden 

; neue Copperlisten erstellt 


- Neue Copperliste starten - 

move.l gf xbase,a6 
move.l ifview.al 

jsr -222(a6) ; Loadview 
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;-Einen Text printen, daiit lan was sieht 

move.l trastport.aO 
move. I Itextl,a1 
move.l 100,dO 
move.l 150,dl 
move.l intbase,a6 
jsr -21Ma6) 

■ain: 

btst #10,Sdff016 : Rechte Maustaste gedrückt? 

bne main 

exit: 

move.l o1dview,a1 
cmp.l #0,a1 
beq exitl 
move.l gfxbase,a6 
jsr -222(a61 

exitl: 

move.l colormap.aO 
cmp.l #0,a0 ; wurde eine ColorMap angelegt? 

beq exitla 
move.l gfxbase,a6 

jsr -576(a6) ; ColorMap wieder freigeben 

; FreeColorMap 

;- Speicher der einzelnen Copperlisten wieder freigeben - 

exitla: 

emp.w |0,copper 

beq exitlb 
move.l #viewport,a0 


wurden neue copperiisten er 
stel1t, und somit 
Speicher vom System belegt? 
erzeugte Copperlisten wieder 
freiqeben 


: auf alte Copperlist umschalten 
; wurde alter View gespeichert? 

; alten View starten (Loadview) 


; Zeiger auf Textstruktur 
: x-position 
; y-position 

: PrintIText 
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move.l gf xbase,a6 
jsr -540(a6) 
move.l view+4,a0 
move.l gf xbase,a6 
jsr -564(a6J 

exitlb: 

move.l displaybase,al 
cmp.l #0,a1 
beq exi t2 

move.l #((breite/8)*tieferhöhe),d0 
move.l 4,a6 
jsr -210(a6) 

exit2: 

bsr closelibrarys 
rts 


; FreeVPortCopLists 
; FreeCprList 

; wurde Speicher für BitMaps 
; reserviert ? 

: belegten Speicher freigeben 
: (FreeMem) 

; Librarys schließen 


;-Unterroutinen - 

;- Librarys öffnen 

openlibrarys: 

move .1 4, a6 
move.l #gfxname,al 
clr.I dO 
jsr -552 (a6) 
move.l dO.gfxbase 
move.l 4,a6 
move.l #intname,al 
clr.I dO 
jsr -552(a6) 
move.l dO,intbase 
rts 
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;-Librarys schließen- 

closelibrarys: 

move.1 4a6 
move.l gfxbase.al 
jsr -414la6) 
move.l 4,a6 
move.l intbase.al 
jsr -414la6) 
rts 

;- Parameter - 

gfxname: dc.b "graphics.1ibrary",0 
even 

intname: dc.b "intuition.1ibrary",0 
even 

gfxbase: de. 1 0 
intbase: dc.l 0 
oldview: dc.l 0 

colormap: dc.l 0 : Zeiger auf ColorMap-Struktur 

view: blk.b lö.O : View-Struktur 

viewport: blk.b 40,0 ; ViewPort-Struktur 

rasinfo: blk.b 12.0 : RasInfo-Sturktur 

rastport: blk.b 100,0 : RastPort-Struktur 

bitmap: blk.b 40,0 ; Bitmap-Sturktur 

copper: dc.w 0 
displaybase: dc.l 0 

textl: : Text-Struktur 

dc.b 1.0,0,0 

dc.w 0,0 

dc.l 0,title,0 

title: dc.b "Primitiv-Display (Press Ri ght -Mouse)", 0 
even 

;...-. Prograaaende-- 
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1.9 Grafikmodi: 

Wie aus der ViewPort-Struktur schon ersichtlich, besitzt der Ami- 
ga verschiedene Grafikmodi. Wenn man seinen Amiga normal 
startet, also über die Workbench, befindet man sich im Hires-Mo- 
dus. Deswegen auch die hohe Auflösung in waagerechter Auftei¬ 
lung. 

Wie man nun die verschiedenen Modis programmiert, soll im fol¬ 
genden beschrieben werden. Welchen man dann letztendlich für 
seine Programme wählt, bleibt dann Ihnen überlassen. Denn jeder 
Modus hat seine Vor- und Nachteile. 


1.9.1 Hold and Modify (HAM) 

Der Hold and Modify-Modus ist wohl der Bekannteste und Interes¬ 
santeste. Durch ihn ist es Möglich die gesamten 4096 Farben des 
Amiga aufeinmal darzustellen. 

Allerdings mit einem kleinen Nachteil. Dieser Modus kann nur im 
niedrig auflösenden Betrieb aktiviert werden und benötigt 6 Bit¬ 
planes. Wozu eine 6 BitPlane werden Sic sich bestimmt Fragen? 
Mit Hilfe dieser Bitplane stellt der Amiga nähmlich seine 4096 
Farben zusammen. 

Normalerweise sind die Übergänge von einem Punkt auf den ande¬ 
ren fließend und wechseln nicht sprunghaft. Diese Technik wird 
auch im HAM-Modus benutzt. Das heißt, das die Farbe des voran¬ 
gegangenen Punktes von dem nachfolgcncn modifiziert wird, also 
nur einen anderen Rot-, Grün oder Blauwert erhält. Jedoch kann 
man jeweils nur eine Farbkomponentc ändern und nicht alle drei. 
Ein Farbwert kann logischerweise also erst nach 3 Punkten voll¬ 
ständig geändert werden. 
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Es besteht jedoch noch die Möglichkeit, durch ändern der Farbre- 
gister 0 - 15, die Farbe vollständig zu wechseln. Die Farben die 
ihre Farbwerte aus diesen ersten 16 Farbregistern entnehmen, 
werden als Echtfarben bezeichnet. 

Wie wird nun eine Farbe angewählt, die nicht in diesen 16 Farb¬ 
registern enthalten ist? 

Die Bits (4 und 5) aus den Bitplanes 5 und 6 bestimmen die Ver¬ 
wendung der unteren Bits (0 - 3 = BitPlanes 1- 4). Sind diese Bits 
gleich Null, wird ein Farbwert aus den Farbregistern 0 - 15 ent¬ 
nommen. Je nachdem wie die Bits 4 und 5 nun gesetzt sind, ent¬ 
scheidet darüber, welche Farbkomponente geändert werden soll. 
Die Farbkomponente erhält dann den Wert, der in den Bits 0 - 3 
enthalten ist. Die anderen Farbkomponenten werden vom links- 
dancbenliegendcn Punkt übernommen. 


Wert der Bits 5 und 4: Farbkomponente die geändert wird: 

00 Keine; Farbwert aus Register 0 - 15 

01 Blauwert aus Bits 0 - 3 

10 Rotwert aus Bits 0-3 

11 Grünwert aus Bits 0 - 3 


Dieser Modus eignet sich lediglich für Titelbilder oder Diashows, 
also Grafiken die nicht animiert werden. Denn wenn man z. B. ei¬ 
ne Figur über ein HAM-Bild animiert, kommt es zu Farbstreifen, 
es sei denn, man verwendet Sprites. 

Um diesen Modus zu aktivieren, setzt man in der ViewPort-Struk- 
tur das Bit 11 und läßt den PlanePtr6-Zeiger, aus der BitMap- 
Struktur, auf eine 6 BitMap zeigen. 
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1.9.2 Hires 

Der Hires-Modus halbiert sozusagen die Pixelbreite. Damit stehen 
einem 640 Punkte pro Zeile zur Verfügung. Wodurch man na¬ 
türlich eine bessere Auflösung erhält. 

In diesem Modus stehen einem allerdings max. nur 4 Bitplanes 
zur Verfügung, kann also max. 16 Farben ansteuern. Ein solches 
Display verbraucht doppelt soviel Speicher, wie ein normales. Ist 
ja auch logisch, schließlich steuert man nun 640 statt 320 Punkte 
an. 

Dieser Modus wird durch das setzen von Bit 15, in der ViewPort- 
Struktur, aktiviert. 

Hier ein Beispielprogramm, welches diesen Modus aktiviert: 


-Prograwnaie = Hires - 

breite = 640 ; Bitmapbreite (muß durch 8 teilbar sein) 

höhe = 256 ; Bitmaphöhe 

tiefe = 4 ; Anzahl Bitplanes 

- Librarys öffnen - 

bsr openlibrarys 

- Speicher für Bitiaps reservieren - 

move.1 #((breite/8)*tieferhöhe),d0 
move.l #$1 0002,dl 
move.l 4,a6 

jsr -198(a6) ; AllocMem 

move.l dO,displaybase 
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tst.l dO 
beq exit 


- aktiven View speichern - 

move.l intbase,a6 

jsr -294(a6) ; ViewAdress 

move.l dO,oldview 

- View-Struktur init. - 

move.l gfxbase,a6 
move.l #view,al 

jsr -360(a6) ; InitView 


-ViewPort-Struktur init. .. 

move.l gf xbase ,a6 
move.l #viewport,aO 

jsr -204(361 ; InitVPort 

- Bitmap-Struktur init. - 

move.l gf xbase,a 6 
move.l #bitmap,a0 
move.l #tiefe,dO 
move.l #breite,dl 
move.l #höhe,d2 

jsr -390(a6) ; InitBitMap 

- Bitmap Pointer errechnen (PlanePrtX) - 

move.l displaybase,aO ; Basis des Display 

move.l #((breite/8)"höhe),d0 ; Höhe einer Bitmap 

move.w #tiefe-1,dl 
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move.l #bitmap,a1 
add.l #8,a 1 

maploop: 

move.I aO, (al1 + 
add.l dO,aO 
dbra dl.maploop 

;.- Rasterport init. —. 

move.l #rastport,al 
move.l gfxbase,a6 

jsr -198(a6) ; InitRastPort 

;- ColorMap-Struktur vom System anlegen lassen 

move.l gf xbase, a6 
move.l #32,dO 

jsr -570(a6) ; GetColorMap 

move.l dO.colormap 
tst.l dO 
beq exit 


- Vievport-Parameter init. - 

move.w #breite,viewport+24 ; Breite 

move.w #höhe,viewport+26 ; Höhe 

move.w #$8000,viewport+32 ; Modus = Hires 

. Strukturen miteinander verbinden - 

- Vievport in View einhängen -- 

move.l #viewport,view 
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- F ar bt a bell e in Vievport einhängen - 

move.l colormap,viewport+4 

- R as i n f 0 -st ru kt ur in VievPort-Struktur einhängen - 

move.l #rasinfo,viewport+36 

- Bitaap-Struktur in Rasinfo-Struktur einhängen - 

move.l #bitmap,rasinfo+4 

- Bita a p-St ru kt ur in RastPort-Struktur einhängen - 

move.l #bitmap,rastport+4 

- C 0 pperli S t en konstruieren - 

move.l gfxbase,a6 
move.l Iview.aO 
move.l #viewport,al 

jsr -216(a6) ; MakeVport 

- Copperlisten zu einer Copperliste zusawenfassen - 

move.l gfxbase,a6 
move.l #view,al 

jsr -210(a6) ; MrgCop 

move.w #l,copper ; Copperstatus = 1 , es wurden 

; neue Copperlisten erstellt 


- Neue Copperliste starten - 

move.l gf xbase ,a 6 
move.l #view,al 

jsr -222(a6) ; Loadview 
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Einen Text printen, daiit aan was sieht 


move.l #rastport,aO 
move.l #textl,a 1 
move.l #00,dO 
move.l #50,dl 
move.l intbase,a6 
jsr -216(a6) 

■ain: 

btst #10,$dff016 
bne main 

exit: 

move.l oldview.al 
cmp.l #0,a1 
beq exitl 
move.l gfxbase,a6 
jsr -222(a6) 

exitl: 

move.l colormap.aO 
cmp.l #0,a0 
beq exitla 
move.l gf xbase ,a6 
jsr -576(a6) 


- Speicher der einzelnen 


; Zeiger auf Textstruktur 
; x-position 
; y-position 

; Pr int I Text 

: Rechte Maustaste gedrückt? 

; auf alte Copperlist umschalten 
: wurde alter View gespeichert? 

; alten View starten (Loadview) 

; wurde eine ColorMap angelegt? 

; ColorMap wieder freigeben 
; FreeColorMap 

Copperlisten wieder freigeben — 


exitla: 

emp.w #0,copper 

beq exitlb 
move.l #viewport,a0 


wurden neue Copperlisten er 
stel1t, und somit 
Speicher vom System belegt? 
erzeugte Copperlisten wieder 
freigeben 
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move.l gfxbase,a6 
jsr -540(a6) 
move.l view+4,a0 
move.l gfxbase.aö 
jsr -564(a6) 

exitlb: 

move.l displaybase,al 
cmp.l #0,al 
beq exit2 

move.I #((breite/81*tief erhöhe),d0 
move.l 4,a6 
jsr -210(a6) 

exit2: 

bsr closelibrarys 
rts 


; FreeVPortCoplists 
; FreeCprList 

; wurde Speicher für BitMaps 
; reserviert ? 

; belegten Speicher freigeben 
; (FreeMem) 

; Librarys schließen 


;-Unterroutinen - 

;- Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l #gfxname,al 
clr.I dO 
jsr -552(a6) 
move.l dO,gfxbase 
move.l 4,a6 
move.l #intname,al 
clr. I dO 
jsr -552(a6) 
move.l dO.intbase 
rts 
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;-Librarys schließen- 

closelibrarys: 

move.l 4,a6 
move.l gfxbase.al 
jsr -414(a6) 
move.l 4,a6 
move.l intbase,a1 
jsr -414(a6) 
rts 

■-Parameter- 

gfxname: dc.b "graphics.1ibrary",0 
even 

intname: dc.b "Intuition.1ibrary",0 
even 

gfxbase: dc.l 0 
intbase: dc.l 0 
oldview: dc.l 0 

colormap: dc.l 0 ; Zeiger auf ColorMap-Struktur 

view: blk.b 18,0 ; View-Struktur 

viewport: blk.b 40,0 ; ViewPort-Struktur 

rasinfo: blk.b 12,0 ; Raslnfo-Sturktur 

rastport: blk.b 100,0 ; RastPort-Struktur 

bitmap: blk.b 40,0 ; Bitmap-Sturktur 

copper: dc.w 0 
displaybase: dc.l 0 

textl: ; Text-Struktur 

dc.b 1,0,0,0 
dc.w 0,0 
dc.l 0,ti11e,0 

title: dc.b "Hires-Primitiv-Display. (Press Right-Mouse)" ,0 

even 

...— Prograwende.. 
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1.9.3 Dualplayfield 

In diesem Modus werden praktisch zwei Displays erzeugt, welche 
übereinander gelegt und unabhängig voneinander bewegt werden 
können. 

Dieser Effekt kann z. B. für die Programmierung von Flugsimula¬ 
toren benutzt werden. Das eine Display zeigt die Instrumente usw. 
an, ist also unbewegt, im anderen kommt die Grafik auf einem zu- 
gescrollt. Man besitzt somit ein Fenster beliebiger Größe, durch 
das man hindurchschen kann. 

Jedes der beiden Displays (Playfields) kann max. 3 Bitmaps besit¬ 
zen. Ist eine ungerade Zahl von BitPlanes in Betrieb, besitzt das 
erste Display eine BitMap mehr. Es stehen einem somit auch nur 
max. 8 Farben pro Display zur Verfügung. Dabei bekommt das er¬ 
ste Display die Farbregister 0 - 7 und das zweite Display die Farb- 
register 8 - 15 zugeteilt. 

Überall dort wo die Bitkombination gleich Null ist, wird nicht et¬ 
wa die Farbe aus dem Hintergrundfarbregister 0 entnommen, son¬ 
dern wird ein Punkt transparent dargestellt. 

Um ein Dualplayfield zu erzeugen, setzt man das Bit 10 im ‘Mo¬ 
dus-Flag*, in der ViewPort-Struktur und läßt den Zeiger *Next‘ in 
der Raslnfo-Struktur auf eine weitere Raslnfo-Struktur zeigen. 
Denn in der zweiten Raslnfo-Struktur ist ja wieder ein Zeiger auf 
eine BitMap-Struktur, welche einfach auf das zweite Display 
zeigt. Dieser Modus funktioniert auch im Interlace-Betrieb, nur 
stehen einem dann nur noch max. 4 Farben pro Display zur Ver¬ 
fügung. 
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Um die Dualplayfields getrennt voneinander zubewegen, definiert 
man einfach übergroße BitMaps, ändert die PlanePtrX-Zeiger in 
der entsprechenden BitMap-Struktur und berechnet danach mit 
‘MakeVPort ()\ 'MrgCop ()* und “LoadView ()* die Copperliste 
neu. 

Zum besseren Verständnis folgt ein Programm, welches zwei Dis¬ 
plays, von jeweils einer BitMap, erzeugt und das Erste von beiden 
mit den Cursortasten hoch und runter gescrollt werden kann. 


Prograiinaie = Dualplayf ield 


breite = 320 
höhe = 400 
tiefe = 2 
stops = höhe-256 


; Bitmapbreite (muß durch 8 teilbar sein) 

; Bitmaphöhe 
; Anzahl Bitplanes 

; Anzahl Zeilen die gescrollt werden können 


Librarys öffnen --- 


bsr openlibrarys 


- Speicher für Bitiaps reservieren - 

move.1 #((breite/8)*tieferhöhe),d0 
move.l #$10002,dl 
move.l 4,a6 

jsr -198(a6) ; AllocMem 

move.l dO, displaybase 
tst.l dO 
beq exit 
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.— aktiven View speichern.. 

move.l intbase r a6 

jsr -294(a6) ; ViewAdress 

move.l dO,o 1 dview 

;.View-Struktur init. . 

move.l gfxbase,a6 
move.l Iview.al 

jsr -360(a6) ; InitView 

.- ViewPort-Struktur init... 

move.l gfxbase,a6 
move.l Iviewport,a0 

jsr -204(a6) ; InitVPort 

. Bitiapll(-Struktur init. («it einer BitMap) 

move.l gfxbase,a6 
move.l |bitmap,aO 
move.l #1,d0 
move.l #breite,dl 
move.l #höhe,d2 

jsr -390(a6) ; initBitMap 

. Bitaap(2)-Struktur init. («it einer BitMap) 

move.l gfxbase,a6 
move.l Ibitmap2,a0 
move.l fl,d0 
move.l #breite,dl 
move.l #höhe,d2 

jsr -390(a6) ; InitBitMap 
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Bitiap Pointer errechnen (PlanePrtX) 


move.l displaybase,aO 
move.l #((breite/8) x höhe),d0 
move.l aO,bitmap+6 

add.l dO,aO 
move.l a0,bitmap2+8 


Rasterport init. 


Basis des Display 

Höhe einer Bitmap 

Zeiger auf erste Bitmap spei 

ehern 

eine BitMaphöhe hinzuaddieren 
Zeiger auf zweite Bitmap spei 
ehern 


move.l #rastport,al 
move.l gfxbase,a6 

jsr -198(a6) ; InitRastPort 

- ColorMap-Struktur vo* Syste* anlegen lassen 

move.l gfxbase,a6 
move.l #32,dO 

jsr -570(a6) : GetColorMap 

move.l dO.colormap 
tst.l dO 
beq exit 


- Viewport-Paraieter init. - 

move.w #breite,viewport+24 ; Breite 

move.w #höhe,viewport+26 ; Höhe 

move.w #$400,viewport+32 ; Modus = Dualplayfield 

- Strukturen iiteinander verbinden -- 

- Viewport in View einhängen - 

move.l #viewport,view 
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. Farbtabelle in Vievport einhängen . 

move.l colormap,viewport+4 

. Raslnfoll(-Struktur in Vievport-Struktur einhängen 

move.l trasinfo,viewport+36 


. Zweite Raslnfo-Struktur lit Erster verbinden 

move.l #rasinfo2,rasinfo 


.Bitiap-Struktur in Ras Info-Strukturen einhängen. 

move.l #bitmap,rasinfo+4 
move.l #bitmap2,rasinfo2+4 

. Bitiap-Struktur(erste) in Rastport-Struktur einhängen - 

move.l #bitmap,rastport+4 

bsr load_copper ; Copperliste starten 

. Einen Text auf Bitiap2 printen . 


move.l #bitmap2,rastport+4 
move.l #rastport,aO 
move.1 ftextl ,al 
move.l #00,dO 
move.l #100,dl 
move.l intbase,a6 
jsr -216(a6) 


; Bitmap wechseln auf zweite 

; Zeiger auf Textstruktur 
; x-position 
; y-position 

; PrintIText 
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;-Einen Text auf Bitiapl 

move.l #bitmap,rastport+4 
move.l #rastport,aO 
move.l #text2,al 
move.l #00,dO 
move.l #200,dl 
move.l intbase,a6 
jsr -216(a6) 

■ain: 

btst #10,Sdff016 
beq exit 

move.l #bitmap,a0 
move.l 8(a0),a0 
move.b SbfecOl,d0 
emp.b #$67,dO 
bne key2 

emp.w #0,scrolIpos 
beq main 

sub.w #1,scrolIpos 
sub.l #(breite/8),aO 

move.l aO,bitmap+8 
bsr wait_b1ank 
bsr load_copper 
bra main 

key2: 

emp.b #$65,dO 
bne main 

emp.w #stops,scrolIpos 
beq main 

add.w #1,scrolIpos 
add.l #(breite/81,a0 
move.l aO,bitmap+8 


Primitive Grafikprogrammicrun 


printen- 

: Bitmap wechseln auf erste 

; Zeiger auf TextstruK.ir 
: x-position 
; y-position 

; PrintIText 


: Rechte Maustaste gedrückt? 

: Zeiger auf 1. BitMap-Struktur 
; Adresse der ersten BitMap 
; Tastenwert holen 
; Cursor UP 

; schon Scrollanfang? 

; scrolIpos um eins erniedrigen 
; eine Zeile von der BitMap ab- 
; ziehen 

; eine Zeile nach Oben scrollen 
; damit Scrol1ing ruckfrei 
; Copperliste neuberechnen 


; Cursor Down 

: Schon Scrollende? 

; ScrolIpos um eins erhöhen 
: eine Zeile zur Bitmap addieren 
; eine Zeile nach unten scrollen 
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bsr wait_blank 
bsr load_copper 
bra main 

exit: 

move.l oldview.al 
cmp.l #0,a1 
beq exill 
move.l gfxbase,a6 
jsr -222(a6) 
exitl: 

move.l colormap,a0 
cmp.l #0,a0 
beq exitla 
move.l gfxbase,a6 
jsr -576(a6) 

;-Speicher der einzel 


; damit Scrol1ing ruckfrei 
; Copperliste neuberechnen 

: auf alte Copperlist umschalten 
; wurde alter View gespeichert? 

; alten View starten (Loadview) 

; wurde eine ColorMap angelegt? 

; ColorMap wieder freigeben 
; FreeColorMap 

Copperlisten wieder freigeben — 


exitla: 

emp.w #0,copper 

beq exitlb 
move.l #viewport,aO 

move.l gfxbase,a6 
jsr -540(a6) 
move.l view+4,a0 
move.l gfxbase,a6 
jsr -564(a6) 


; wurden neue Copperlisten er- 
; stellt, und somit 
; Speicher vom System belegt? 

; erzeugte Copperlisten wieder 
; freigeben 

; FreeVPortCopLists 


; FreeCprList 
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exitlb: 

move.l displaybase,al 
cmp.l #0,a1 
beq exit2 

move.1 #((breite/8)*lieferhöhe),d0 
move.l 4,a6 
jsr -210(a6) 

exit2: 

bsr closelibrarys 
rts 


wurde Speicher für BitMaps 
reserviert ? 


Belegten Speicher freigeben 
(FreeMem) 

Librarys schl ießen 


;-Unterroutinen - 

;- Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l #gfxname,a1 
clr.l dO 
jsr -552(a6l 
move.1 dO.gfxbase 
move.l 4,a6 
move.l #intname,a1 
clr.l dO 
jsr -552(a6) 
move.l dO,intbase 
rts 


;- Librarys schließen 

closelibrarys: 
move.l 4,a6 
move.l gfxbase.al 
jsr -414 (a6) 
move.l 4,a6 
move.l intbase,al 
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jsr -414(a6) 
rts 


Copperlisten konstruieren 


load_copper: 

move.l gfxbase,a6 
move.l #view,aO 
move.l #viewport,al 

jsr -216Ia6) ; MakeVport 

;-Copperl isten zu einer Copperl iste zusaaaenfassen- 

move.l gfxbase,a6 
move.l #view,al 

jsr -210(a6) : MrgCop 

move.w fl.copper ; Copperstatus = 1 , es wurden 

; neue Copperlisten erstellt 


- Neue Copperliste starten - 

move.l gfxbase,a6 
move.l #view,al 

jsr -222(a6) ; LoadView 

rts 


Auf Vertikal-Blank warten; danit kein Flackern 


wa i t_bl ank: 

move.l gf xbase, a6 

jsr -270 (a6) : WaitTOF 

rts 
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Parameter 


scrollpos: dc.w 0 

gfxname: dc.b "graphics.1ibrary",0 
even 

intname: dc.b ’intuition. 1ibrary", 
even 

gfxbase: dc.l 0 
intbase: dc.l 0 
oldview: dc.l 0 
colormap: dc.l 0 
view: blk.b 16,0 
viewport: blk.b 40,0 
rasinfo: blk.b 12,0 
rasinfo2: blk.b 12,0 
rastport: blk.b 100,0 
bitmap: blk.b 40,0 
bitmap2: blk.b 40,0 
copper: dc.w 0 
displaybase: dc.l 0 
textl: 

dc.b 1,0,0,0 

dc.w 0,0 

de.I 0,title,0 

title: dc.b "DualPlayfield-Display 
even 
text2: 

dc.b 9,0,0,0 
dc.w 0,0 
dc.l 0,tit1e2,0 

tit1e2: dc.b "DualPlayfield-Display 
even 


; Wieviel Zeilen schon gescrollt 
; wurden 


; Zeiger auf ColorMap-Struktur 
: View-Struktur 
: ViewPort-Struktur 
; Raslnfo-Sturktur 

; RastPort-Struktur 
; Bitmap-Sturktur 


: Text-Struktur 


1 (Press)",0 
; Text-Struktur 


2 (Mouse)", 0 


Programmende 
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1.9.4 Extra-Halfbrite 

Dieser Modus funktioniert ähnlich wie der HAM-Modus. Auch 
hier werden 6 Bitplanes benötigt, also ist dieser Modus nur im 
niedrigauflösendem Betrieb möglich. 

Mit 6 Bitplanes erhält man einen Wertebereich von 0 - 63. Der 
Amiga besitzt aber nur 32 Farbregister. Woher werden nun die an¬ 
deren 32 Farben entnommen? 

Dazu greift man einfach zu einem Trick: 

Die ersten 5 Bits (0 - 4) werden weiterhin als Zeiger auf eines der 
32 Farbregister benutzt. Wenn jetzt aber noch das 5. Bit aus der 
6. Bitplane auf eins steht, dann wird der Farbwert aus den ersten 5 
Bits, vor der Ausgabe auf dem Bildschirm, halbiert. Dies hat zur 
Folge, daß die Farbe in der halben Helligkeit erscheint. Damit 
stehen einem 64 Farben zur Verfügung. 

Durch setzen von Bit 7 in *Modes* in der ViewPort-Struktur und 
initialisieren von 6 Bitmaps in der Bitmap-Struktur, aktiviert man 
diesen Modus. 


1.9.5 Scrolling 

Um Scrolling zu erzeugen, definiert man als erstes eine übergroße 
Bitmap. Danach ändert man einfach, je nachdem in welche Rich¬ 
tung gescrollt werden soll, den RxOffset bzw. RyOffset in der Ra- 
slnfo-Struktur und berechnet danach die Copperlisten neu. 
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Wenn man die Copperliste zu einer beliebigen Rasterstrahlpositi¬ 
on ändern würde, hätte dies ein unschönes Flackern zur Folge. 
Dies kann man verhindern, indem man, vor dem neuberechnen der 
Copperlisten, die Routine ‘WaitTOF ()* oder “WaitBOVP ()‘ oder 
‘VBeamPos ()* aufruft. Diese Routinen warten auf den Anfang 
bzw. das Ende einer Rasterstrahlzeile. 

Scrolling kann man in jedem Modus erzeugen. Wird meist für die 
Spielcprogrammicrung angewandt. 

Das folgende Programm definiert zwei übergroße BitMaps, die mit 
den Cursortasten in alle 4 Richtungen gescrollt werden können. 


-Prograunaie = Scrolling.-.. 

breite = 400 ; Bitmapbreite (muß durch 8 teilbar sein) 

höhe = 400 ; Bitmaphöhe 

tiefe = 2 ; Anzahl Bitplanes 

-Librarys öffnen.. 

bsr openlibrarys 

- Speicher für Bitiaps reservieren -- 

move.1 #((breite/8) x tiefe*höhe),d0 
move.l #$10002,dl 
move.l 4,a6 

jsr -198(a6) ; AllocMem 

move.l dO,displaybase 
tst.l dO 
beq exit 
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.— aktiven View speichern- 

move.l intbase,a6 

jsr -294(a6) ; ViewAdress 

move.l dO.oldview 

- View-Struktur init. - 

move.l gfxbase.aö 
move.l #view,al 

jsr -360(a6) ; InitView 

-ViewPort-Struktur init. - 

move.l gfxbase.aö 
move.l ifviewport.aO 

jsr -2041a6) ; InitVPort 

- Bit ia p-St ru kt ur init. - 

move.l gfxbase.aö 
move.l Ibitmap.aO 
move.l ttiefe.dO 
move.l tbreite.dl 
move.l #höhe,d2 

jsr -390(aö) ; InitBitMap 

- Bitiap Pointer errechnen (PlanePrtX) - 

move.l displaybase,aO ; Basis des Display 

move.l #((breite/8)*höhe) ,d0 ; Höhe einer Bitmap 

move.w #tiefe-1,dl 
move.l tbitmap.al 
add.l #8,a1 
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maploop: 

move.I aO, (al) + 
add.l dO,aO 
dbra dl.maploop 

;-Rasterport init. - 

move.l #rastport,al 
move.l gfxbase,a6 

jsr -19S(a6) ; InitRastPort 

;-ColorMap-Struktur vom System an legen lassen 

move.l gfxbase,a6 
move.l #32,dO 

jsr -570(a6) ; GetColorMap 

move.l dO.colormap 
Ist.1 dO 
beq exit 


- Vievport-Parameter init. (Modus = Normal) 

move.w #breite,viewport+24 
move.w #höhe,viewport+26 

- Strukturen miteinander verbinden -. 

- Vievport in View einhängen - 

move.l Iviewport,view 

- Farbtabelle in Vievport einhängen - 

move.l colormap,viewport+4 
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- R as i n f 0 -st ru kt ur in ViewPort-Struktur einhängen 

move.l #rasinfo,viewport+36 

-Bita a p-st ru kt ur in Ras Info-Struktur einhängen - 

move.l #bitmap,rasinfo+4 

- BitBap-Struktur in RastPort-Struktur einhängen 


move.l #bitmap,rastport+4 
bsr new_copper 

.-Einen Text printen, 

move.l #rastport,aO 
move.l #textl,al 
move.l #10,dO 
move.l #150,dl 
move.l intbase,a6 
jsr -216(a6) 
nain: 

btst #10,Sdff016 
beq exit 

move.w rasinfo+8,dl 
move.w rasinfo+10,d2 
move.b SbfecOl,d0 
emp.b #$67,dO 
bne key2 
emp.w #0,d2 
beq main 
sub.w #1,d2 
move.w d2,rasinfo+l0 
bsr wait_tof 
bsr new_copper 
bra main 


daait Ban was sieht 


; Zeiger auf Textstruktur 
: x-position 
; y-position 

: PrintIText 

: Rechte Maustaste gedrückt'? 

; x-position nach dl 
; y-position nach d2 
; Tastenwert holen 
: Cursorup ? 

; y-pos am Anfang ? 

; eine Zeile abziehen 
: eine Zeile hoch scrollen 
; Flackern ausschalten 
: Copperlisten neuberechnen 
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key2: 

cmp.b #$65,dO 
bne key3 

cmp.w #höhe-264,d2 

beq main 
add.w #1,d2 
move.w d2,rasinfo+l0 
bsr wait_tof 
bsr new_copper 
bra main 

key3: 

cmp.b #$61,d0 
bne key4 
cmp.w #0,dl 
beq main 
sub.w #1,dl 
move.w dl,rasinfo+6 
bsr wait.tof 
bsr new_copper 
bra main 

key4: 

cmp.b #$63,dO 
bne main 

cmp.w #breite-320,dl 
beq main 
add.w #1,dl 
move.w dl,rasinfo+8 

bsr wait_tof 
bsr new_copper 
bra main 


; Cursordown ? 

; y-pos am Ende ? (BitMaphö- 
; he-(256+Fonthöhe)) 

; eine Zeile dazuaddieren 
; eine Zeile runter scrollen 
; Flackern ausschalten 
; Copperlisten neuberechnen 


; Cursorleft ? 

; x-pos am Anfang ? 

; einen Punkt abziehen 
; einen Punkt nach links scrollen 
; Flackern ausschalten 
; Copperlisten neuberechnen 


; Cursorright ? 

; x-pos am Ende ? 

; einen Punkt dazuaddieren 
; einen Punkt nach rechts scrol 
; len 

; Flackern ausschalten 
; Copperlisten neuberechnen 
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exit: 

move.l oldview.al 
cmp.l #0,a 1 
beq exill 
move.l gfxbase,a6 
jsr -222(a6) 

exitl: 

move.l colormap.aO 
cmp.l #0,a0 
beq exilla 
move.1 gf xbase,a6 
jsr -576(a6) 

;-Speicher der einzel 


: auf alte Copperlist umschalten 
: wurde alter View gespeichert? 

: alten View starten (Loadview) 

: wurde eine ColorMap angelegt? 

; ColorMap wieder freigeben 

Copperlisten wieder freigeben — 


exitla: 

emp.w #0,copper 

beq exitlb 
move.l #viewport,aO 

move.l gf xbase,a 6 
jsr -540(a6) 
move.l view+4,a0 
move.l gf xbase,a6 
jsr -564(a6) 

exitlb: 

move.1 displaybase,al 
cmp.l #0,a1 
beq ex it2 

move.l #( (breite/8)*tiefe , 'höhe) ,d0 
move.l 4,a6 
jsr -210(a6) 


: wurden neue Copperlisten er- 
: stel 11, und somit 
; Speicher vom System belegt? 

: erzeugte Copperlisten wieder 
: freigeben 

; FreeVPortCopLists 


: FreeCprList 


; wurde Speicher für BitMaps 
: reserviert ? 


; belegten Speicher freigeben 
; (FreeMem) 
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exit2: 

bsr closelibrarys : Librarys schließen 

rts 


;- Unterroutinen - 

;- Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l #gfxname,al 
clr.1 dO 
jsr -552(a6) 
move.l dO,gfxbase 
move.l 4,a6 
move.l #intname,al 
cl r. 1 dO 
jsr -552(a6) 
move.l dO,intbase 
rts 


;- Librarys schließen 

closelibrarys: 

move.l 4,a6 
move.l gf xbase,al 
jsr -414(a6) 
move.l 4,a6 
move.l intbase,al 
jsr -414(a6) 
rts 


Copperliste neuberechnen 


nev_copper: 

move.l gf xbase,a6 
move.l #view,aO 
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move.l lfviewport,al 
jsr -216(a6) 
move.l gfxbase,a6 
move.l #view,al 
jsr -210(a6) 
move.w #1,copper 

move.l gfxbase,a6 
move.l #view,al 
jsr -222(a6) 
rts 


; MakeVport 


; MrgCop 

; Copperstatus = 1 , es wurden 
; neue Copperlisten erstellt 


; Loadview 


Flackern bell Scrollen ausschalten 


wait_tof: 
move.l gfxbase,a6 
jsr -270( a6 ) ; WaitTOF 

rts 


Paraieter 


gfxname: dc.b "graphics.1ibrary" ,0 
even 

intname: dc.b "intuition.library",0 
even 

gfxbase: dc.l 0 
intbase: dc.l 0 
oldview: dc.l 0 
colormap: dc.l 0 
view: blk.b 18,0 
viewport: blk.b 40,0 
rasinfo: blk.b 12,0 
rastport: blk.b 100,0 
bitmap: blk.b 40,0 
copper: dc.w 0 


Zeiger auf ColorMap-Struktur 

View-Struktur 

ViewPort-Struktur 

Raslnfo-Sturktur 

RastPort-Struktur 

Bitmap-Sturktur 
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displaybase: dc.l 0 

textl: ; Text-Struktur 

de .b 1,0,0,0 
dc.w 0,0 
dc.l 0,tit1e,0 

title: dc.b “Scrolling-Demo (Press Cursor or Right-House)",0 
even 

;- Prograuende —--- 


1.9.6 Double-Buffering - Blitzschnelle Grafik 

Bei Double-Buffering werden zwei gleichgroße Displays benötigt. 
Während der Anwender gelangweilt in das sichtbare Display 
schaut, baut sich die Grafik im unsichtbaren Display auf. Danach 
aktiviert man das unsichtbare Display und die Grafik erscheint so¬ 
fort. 

Dieses Prinzip wird oft verwendet, um flackerfreie, blitzschnelle, 
rechenintensive Grafiken zu erzeugen. Hat allerdings den Nach¬ 
teil, daß es sehr speicherraubend ist. 

Programm! erprinzip: 

Man führt wie gewohnt die Schritte zur Erzeugung eines Displays 
durch. Nur diesmal werden zwei BitMap-Strukturen generiert, die 
jeweils auf ein Display zeigen. Natürlich müssen beide Displays 
gleich Groß sein. Jetzt erzeugt man wie gehabt mit den Routinen 
‘MakeVPort ()* und “MrgCop ()* die Copperliste. Allerdings noch 
nicht “LoadView ()* aufrufen. Denn nun wird erstmal der Zeiger 
auf die Copperliste, welcher bei Offset 4 (bei Interlace auch 8) in 
der View-Struktur zu finden ist, zwischengespeichert. Danach 
werden dann die Zeiger in der View-Struktur gelöscht, damit wie¬ 
der eine neue erzeugt werden kann. Als nächstes wird jetzt die 
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zweite BitMap-Struktur für die erste in die Rasinfo-Struktur ein¬ 
gehängt, danach wieder die Copperliste, wie oben beschrieben, er¬ 
zeugt und zwischengespeichert. 

Um nun von einem Display ins andere zu schalten, braucht nur 
die entsprechende Copperliste, welche vorher zwischengespei¬ 
chert wurde, in die View-Struktur eingehängt und die Routine 
’LoadVie*w ()* aufgerufen werden. 


Zum Besseren Verständnis das ganze nochmal in Kurzform: 

1. Ein Display mit zwei BitMap-Strukturen erzeugen 

2. Mit ‘MakeVPort ()' und ‘MrgCop ()' Copperliste für erste 
BitMap-Struktur generieren 

3. Copperliste aus View-Struktur auslesen und speichern 
(Offset 4; bei Interlace auch 8) 

4. Copperliste-Zeiger (Offset 4 und 8) in View-Struktur 
löschen (Wichtig) 

5. zweite BitMap-Struktur in Rasinfo-Struktur einhängen 

6. erneut mit ‘MakeVPort ()' und ‘MrgCop ()‘ Copperliste 
für zweite BitMap-Struktur erzeugen 

7. Copperliste aus View-Struktur auslesen (siehe Punkt 3) 

8. Mit ‘LoadView ()‘ jeweils entsprechende Copperliste 
starten 
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2. Copper - Der Coprozessor 

Wie schon im ersten Kapitel erwähnt wurde, gibt es zwei Mög¬ 
lichkeiten ein Bild darzustellen. Entweder setzt man die Bitma- 
padressen im Rastcrintcrrupt immer wieder auf den Anfangswert, 
damit auch gewährleistet ist, daß immer das gleiche Bild darge¬ 
stellt wird, oder man läßt dieses den Copper erledigen. 

Der Copper besitzt ein eigenes Programm, welches er abarbeitet. 
Dabei richtet er sich genau nach dem Rasterstrahlverlauf. Wenn 
der Rasterstrahl wieder beim Wert Null angekommen ist, wird au¬ 
tomatisch das Programm erneut von vorne abgearbeitet. 

Der Copper kennt drei Befehle. Den “Move“, ‘Wait‘ und “Skip‘- 
Befehl. Wobei der ‘Skip'-Befehl so uninteressant ist, das wir ihn 
außer Acht lassen können. 

Der ‘Move’-Befehl lädt ein Register eines Custom-Chips mit ei¬ 
nem bestimmten Wert. Dabei stehen einem die Register von 
$DFF080 bis SDFF1BE zur Verfügung. Wenn das Register 
$DFF02E (COPCON) auf eins gesetzt wird, dann stehen einem 
auch noch die Register $DFF040 bis $DFF07E zur Verwendung. 
Leider ist es hier nicht möglich, jedes einzelne Register zu erläu¬ 
tern. Das würde den Rahmen dieses Buches sprengen. Eine 
ausführliche Beschreibung finden Sie z. B. im Intern-Buch. 

Der ’Wait“- Befehl wartet solange, bis die angegebene Rasterzeile 
erreicht ist und fährt dann mit der Abarbeitung des Copperpro¬ 
grammes fort. 

Mit diesen beiden Befehlen ist man z. B. in der Lage sein Pro¬ 
gramm mit unwahrscheinlich vielen Specialeffekten zu versehen, 
wie meherere Hintergrundfarben oder die Darstellung von mehr 
als 8 Sprites gleichzeitig. 
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2.1 Die User-Copperliste 

In der ViewPort-Struktur ist ein Zeiger auf eine UserCopperList- 
Struktur (UCopIns - Offset 20), der normalerweise auf Null ist. 
Wenn man diesen Zeiger auf eine Struktur zeigen läßt, die sich 
UCopList-Struktur nennt, danach die Copperliste mit den den ge¬ 
wünschten Befehlen füllt und neu berechnet, ist cs möglich, den 
Copper zu programmieren. Diese Struktur, mit einer Länge von 12 
Bytes, muß mit der Execroutine ‘AllocMem ()‘ reserviert werden, 
weil das System, nach Beendigung des Programmes, den Speicher 
automatisch wieder zurückgibt. Ansonsten würde der GURU medi¬ 
tieren.... 

Beschreibung der Datenstruktur UCopList: 

UCopList-Struktur (Länge « 12 Bytes - Mit ‘AllocMem 0‘ reser- 


vieren): 




Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Long 

NextUCopList 

Zeiger auf nächste UserCop 
perlist-Struktur 

004 

Long 


Zeiger auf erste Copperliste die 
von ‘MakeVPort ()' angelegt 
wurde 

008 

Long 


Zeiger auf dieser Struktur da 
zugehörigen Copperliste 

012 


END 

Ende der ‘UCopList'-Struktur 
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2.2 Die Copperroutinen des Systems 

Wir kennen jetzt zwar die Copperbefehlc und die dazugehörige 
Datenstruktur, jedoch wie fügt man einen Coppcrbefchl zur Uscr- 
Copperliste? 

Dazu stellt das System drei Routinen bereit. Die ‘CMove ()', wel¬ 
che einen ‘Move’-Befehl, die ‘CWait ()', welche einen 
"Wait'-Befehl hinzufügt. Und noch die ’CBump ()‘-Routine. Diese 
muß nach jedem "CMove ()' oder ‘CWait ()" aufgerufen werden. 
Dadurch wird der interne Zeiger der User-Copperliste auf den 
nächsten Befehl erhöht. 

Außerdem muß am Ende einer jeden User-Copperliste, ein "Mo- 
ve'-Befehl erfolgen, welcher auf eine unmögliche Rasterstrahlpo¬ 
sition wartet, damit die Copperliste wieder von vorne gestartet 
werden kann. 

Es folgt nun eine Beschreibung der Routinen "CBumpO", "CMo- 
ve()‘ und 'CWaitQ": 


Funktion : CBump (UCopList) (Al) 

Library : graphics.1ibrary 
Offset : -366 = -S16e 

Parameter: Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
Rückgabe : keine 

Erklärung: Diese Routine erhöht den internen Zeiger der UserCopper- 
liste. Muß nach jedem 'CWait ()' und 'CMove (I' aufgeru¬ 
fen werden 1 


Funktion : CMove (UCopList,Registernummer,Wert) (Al,DO,Dl) 

Libra rv : graphics.1ibrary 
Offset' : -372 = -$174 
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Parameter: Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
DO = Registernr. (z. B. #$180 für Hintergrundfarbregi- 
ster) die Basisadresse wird nicht dabei übergeben 
(Basis = $DffOOO) 

Dl = Wert (z. B. #$00 für schwarze Farbe) 

Rückgabe : keine 

Erklärung: Diese Routine führt einen 'Move'-Befehl in die angelegte 
UserCopperliste ein. 


Funktion 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


CWait (UCopList,YPosition,XPosition) (Al, DO,Dl) 
graphics.library 
-378 = -$17a 

Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
DO = Y-Position des Rasterstrahls auf die gewartet wer¬ 
den sol 1 

Dl = X-Position des Rasterstrahls auf die gewartet wer¬ 
den soll nur in vierer Schritten möglich 

keine 

Diese Routine führt einen 'Wait'-Befehl in die angelegte 
UserCopperliste ein. 


2.3 Programmierung des Coppers 

Als erstes muß dazu die UserCopperl iste angelegt und mit der 
ViewPort-Struktur (Offset 20) verbunden werden. Danach kann 
man mit den Routinen ‘CMove ()\ ‘CWait ()' und 'CBump ()‘ die 
gewünschten Coppcrbcfchlc cinfügcn. Zum Schluß wartet man 
noch auf eine unmögliche Rasterstrahlposition. 

Jetzt kann man endlich mit ‘MrgCop ()* und ‘LoadView ()* die er¬ 
zeugte UserCopperl iste zur echten hinzufügen. 
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Zum schnelleren Nachlesen, das ganze nochmal in Kurzform: 

1. ‘UCopList'-Struktur anlegen (Mit AllocMem ()‘) 

2. Mit den Routinen ‘CWait ()\ ‘CMove ()‘ und ‘CBump 
()‘ Copperliste programmieren (Beschreibung der Rou¬ 
tinen siehe oben) Nach jedem ‘CWait ()' oder ‘CMove 
()‘ muß mit ‘CBump ()‘ der interne Zeiger innerhalb 
der UserCopperliste erhöht werden, damit Platz ist, für 
den nächsten Copperbefehl. 

3. ‘CWait ()‘ mit den Positionen Y = 10000, X=256 aufru- 
fen. Dadurch wartet der Copper auf eine unmögliche 
Rast erstrahl position und springt damit wieder auf den 
Anfang der Copperliste. 

4. ‘UCopList'-Struktur in ‘ViewPort'-Struktur einhängen 
(Offset 20) 

5. ‘MrgCop ()‘ und ‘LoadView ()‘ ausführen 

Selbstverständlich fehlt auch hier nicht das entsprechende Bei¬ 
spiel Programm: 


. Prograunaie = Copper . 

.. erzeugt zwei Hintergrundfarben - 

breite = 320 ; Bitmapbreite (muß durch 8 teilbar sein) 

höhe = 256 ; Bitmaphöhe 

tiefe = 3 ; Anzahl Bitplanes 

.Librarys öffnen.. 

bsr openlibrarys 
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- alt en View speichern - 

move.l intbase,a6 

jsr -294(a6) ; ViewAdress 

move.l dO,o1dview 

-View-Striiktiir init. - 

move.l gfxbase,a6 
move.l #view,al 

jsr -360(a6) ; InitView 

- Viewport-Struktur init. - 

move.l gf xbase,a6 
move.l #viewport,aO 

jsr -204(36) ; InitVPort 

- Viewport-Paraieter init. - 

move.w #breite,viewport+24 
move.w #höhe,viewport+26 

- Viewport in View einhängen - 

move.l #viewport,view 

-ColorMap-Struktur vob Systei anlegen lassen 

move.l gf xbase, a6 
move.l #32,dO 

jsr -570(a6) ; GetColorMap 

move.l dO,colormap 
tst.l dO 
beq ex i t 
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;-Raslnfo-Struktur in Viewport-Struktur einhängen 

move.l #rasinfo,viewport+36 

;-Farbtabelle in Viewport einhängen- 

move.l colormap,viewport+4 

;-Bitnap-Struktur init. - 

move.l gfxbase,a6 
move.l tbitmap.aO 
move.l ftiefe.dO 
move.l #breite,dl 
move.l #höhe,d2 

jsr -390(a6) : InitBitMap 

- Speieher für Bitnaps reservieren - 

move.I #((breite/61*tieferhöhe),d0 
move.l #Sl0002,dl 
move.l 4,a6 

jsr -198(a6) ; AllocMem 

move.l dO,displaybase 
tst.l dO 
beq exit 


- Bitaap Pointer errechnen - 

move.l displaybase.aO ; Basis des Display 

move.l #((breite/8) x höhe I ,d0 ; Höhe einer Bitmap 

move.w ttiefe-1,dl 
move.l #bitmap,al 
add.l #8,a1 
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maploop: 

move.1 aO, (al) + 
add.l dO,aO 
dbra dl ,maploop 

;- Bitmap-Struktur in Rasinfo-Struktur einhängen 

move.1 #bitmap,rasinfo+4 

;-Rasterport init. - 

move.l #rastport,al 
move.l gfxbase,a6 

jsr -196(a6) ; InitRastPort 

;- Bitmap-Struktur in RastPort-Struktur einhängen 

move.l #bitmap,rastport+4 

;- Copperlisten konstruieren - 

move.l gfxbase,a6 
move.1 #view,aO 
move.l #viewport,al 

jsr -216(a6) : MakeVport 

;- Speicher für UCopList-Struktur reservieren — 

;- (nicht mit blk.b 12,0) - 


move.l 4,a6 
move. 1 #S1 0002,d1 
move.l #12,dO 
jsr -196(a6) 
move.1 dO.ucoplist 
tst.l dO 
beq exit 


: gelöschtes Chip-Ram 
; 12 Bytes 
; AllocMem 
: Adresse speichern 
: Fehler auf getreten? 
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User-Copper-List erstellen 


move.l #0,d0 
move.l #0,dl 
bsr ewait 
move.l #$180,dO 
move.l #0,dl 
bsr emove 
move.l #100,dO 
move.l #0,dl 
bsr ewait 
move.l #$180,dO 
move.l #1000,dl 
bsr emove 
move.l #10000,dO 
move.l #256,dl 

bsr ewait 

move.l ucopl ist, viewport+20 


; y-pos. 

: x-pos. 

; Warten 

; Registernr. (Hintergrundfarbe) 
: wert 

: Wert speichern 
; y-pos. 

; x-pos. 

; Warten 
: Registernr. 

: wert 

; Wert speichern 
; unmögliche Rasterstrahlpos. 

; muß am Ende jeder UserCopper- 
: liste 

; UCopList in Viewport einhängen 


-Copperlisten zu einer Copperliste zusaiienfassen- 

move.l gfxbase,a6 
move.l #view,al 

jsr -210(a6) ; MrgCop 

move.w #1,copper ; Copperstatus = 1 , es wurden 

: neue Copperlisten erstellt 


- Neue Copperliste starten - 

move. 1 gf xbase,a 6 
move.l #view,al 

jsr -222(a6) ; Loadview 
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Einen Text printen, danit lan was sieht 


move.l #rastport,aO 
move.1 Itextl ,al 
move.l #00,dO 
move.l #50,dl 
move.l intbase,a6 
jsr -216(a6) 

■ain: 

btst #6,$bfeOOl 
bne main 

exit: 

move.l o1dview,a1 
cmp.l #0,a1 
beq exitl 
move.l gfxbase,a6 
jsr -222(a6) 

exitl: 

move.l colormap,a0 
cmp.1 #0,a0 . 
beq exitla 
move.l gfxbase,a6 
jsr -576(a6) 

.- Speicher der einzelnen 


: PrintIText 

; Linke Maustaste 

: auf alte Copperlist umschalten 

: loadview 

; FreeColorMap 

Copperlisten wieder freigeben — 


exitla: 

emp.w #0,copper 

beq exitlb 
move.l #viewport,a0 

move.l gf xbase,a6 


wurden neue Copperlisten er 
stellt, und somit 
Speicher vom System belegt? 
erzeugte Copperlisten wieder 
freigeben 
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jsr -540(a6) 
move.l view+4,a0 
move.l gfxbase.aö 
jsr -564(a61 

exitlb: 

move.l displaybase,al 
cmp.l #0..al 
beq ex i 12 

move.l #((breite/6 ) x tief erhöhe 1 ,d0 
move.l 4.a6 
jsr -2101a6) 

exil2: 

bsr closelibrarys 
rts 


;- Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l #gfxname,al 
clr.1 dO 
jsr -552(a61 
move.l dO.gfxbase 
move.l 4,a6 
move.l #intname, al 
c 1 r.1 dO 
jsr -552(a6) 
move.l dO,intbase 
rts 


: FreeVPortCopLists 
: F reeCpr List 

: FreeMem 
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;- Librarys schließen - 

closelibrarys: 

move.l 4,a6 
move.1 gfxbase.al 
jsr -414(aö) 
move.l 4,aö 
move.l intbase,al 
jsr -414(a6) 
rts 

;-CWait-Routine (DO = y-pos., Dl = x-pos.) 

cwait: 

move.l gfxbase.aö 
move.I ucoplist,al 
jsr -376(a6 ) 
move.l gfxbase.aö 
move.l ucoplist,al 
jsr -3661a6) 
rts 

;-CMove-Routine (DO = registernr., Dl = wert) 

cmove: 

move.l gfxbase.aö 
move.l ucopl ist,al 

jsr -372(aö) : CWait 

move.l gfxbase.aö 
move.l ucoplist.al 

jsr -366(a6) ; CBump 

rts 

;-Paraieter- 

gfxname: dc.b "graphics.library",0 
even 


CWait 

CBump 
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intname: dc.b Intuition.1ibrary ,0 


even 

gfxbase: dc.l 0 
intbase: dc.l 0 
oldview: dc.l 0 
colormap: dc.l 0 
view: blk.b 18,0 
viewport: blk.b 40,0 
rasinfo: blk.b 12,0 
rastport: blk.b 100,0 
bitmap: blk.b 40,0 
ucopl ist: dc.l 0 
copper: dc.w 0 
displaybase: dc.l 0 
textl: 

dc.b 1,0,0,0 
dc.w 0,0 
dc.l 0,title,0 

title: dc.b "Copper Raster-Demo 
even 


; Zeiger auf ColorMap-Struktur 
; View-Struktur 
; ViewPort-Struktur 
; RasInfo-Sturktur 
; RastPort-Struktur 
; Bitmap-Sturktur 
; Zeiger auf UCoplist-Struktur 


(Lef t-Mousebutton)",0 


Prograuende 
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3. Programmierung unter Intuition 

Neben der Möglichkeit der Primitivcs-Grafikprogrammicrung, gibt 
es noch eine zweite - Grafikprogrammierung unter Intuition. 

Intuition ist genau wie die Primitives eine Bibliothek, in der sich 
eine Ansammlung von Routinen befindet. Jedoch kann man mit 
den Intuitionsroutinen wesentlicher einfacher und komfortabeler 
programmieren. Man kann z. B. kinderleicht Menüs, Windows, 
Screens usw. programmieren. 

Wir wollen hier allerdings nur kurz auf die Programmierung von 
Screens und Windows eingehen. 


3.1 Screen öffnen 

Außer der im ersten Kapitel beschriebenen Möglichkeit, gibt es 
noch eine weitere, zur Erzeugung eines eigenen Displays. 

Mit der Routine ‘OpenScreen ()’ aus der intuition.library. Beim 
Aufruf dieser Routine werden automatisch alle Strukturen, die für 
ein Display erforderlich sind, angelegt (RastPort, BitMap, Rasinfo 
etc.). Diese Art erspart einem unwahrscheinlich viel Schreibar¬ 
beit, Speicher und zusätzlich lassen sich noch Windows auf die¬ 
sem Screen verwalten. 

Der Routine muß lediglich die Anfangsadrcssc einer Argumcntcn- 
liste übergeben werden, in der alle nötigen Parameter enthalten 
sind. Denn woher soll Intuition wissen, wie breit oder wie hoch 
der Screen sein soll? 
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Wie nun im einzelnen die Struktur aufgebaut ist, entnehmen Sie 
bitte folgender Tabelle: 

‘OSArgs-Struktur: (Länge = 32 Bytes) 

Wird für die Routine ‘OpenScreen ()“ benötigt! 


Offset 

Typ 

Bezeichnung 

000 

Word 

X_Pos 

002 

Word 

Y_Pos 

004 

Word 

Width 

006 

Word 

Hcigt 

008 

Word 

de pth 

010 

Byte 

detail_pen 

011 

Byte 

block_pen 

012 

Word 

View_Modes 

014 

Word 

Screen_Typ 

016 

Long 

Font 

020 

Long 

title 

024 

Long 

Gadget 

028 

Long 

BitMap 

032 


END 


Beschreibung 

X-Position des Screcns im 
ViewPort (Normal = 0) 
Y-Position des Screens im 
ViewPort 
Breite der Bitmap 
Höhe der Bitmap 
Anzahl der Bitplanes (tiefe) 
Farbregisternummer für Text¬ 
farbe 

Farbregisternummer für Hinter- 
grundfarbc 

siehe ViewPort-Struktur 
siche unten 

Zeiger auf neuen Zeichensatz 
(0 = Normal) 

Zeiger auf Titletext, der mit 
Null endet 

Zeiger auf Gadget-Struktur (0 = 
keine) 

Zeiger auf eigene Bitmap- 
Struktur (nur wenn in 
Scrccn_Typ = Bit7 gesetzt ist, 
sonst Wert Null) 

Ende der OSArgs-Struktur 
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Um seinen Screen z. B. mit einem Titletext zu versehen, setzt 
man in ‘Title’ (Offset 20) die Anfangsadresse des gewünschten 
Textes. DerText muß allerdings mit einem Null-Byte enden. 

z. B. 

text: dc.b "Der neue title!",0 
even 

Man kann alle möglichen Grafikmodis einstellcn. Es ist jedoch 
das unter Kapitel 1 erwähnte zu beachten. Den Grafikmodi setzt 
man in ‘View_Modes‘. 

Welchen Screen-Typ man aktivieren möchte, setzt man mit dem 
entsprcchenen Bit in ’Screen_Typ‘. Mögliche Bitkombinationen 
sind in folgender Tabelle enthalten: 


Scrccn_T yp-Fl ag: 


Bit 

Wert 

Bezeichnung 

Beschreibung 

0 

$001 

WBenchScreen 

dies ist der Workbench-Scrcen 

0-3 

$00f 

CustomScrccn 

Screen mit allen Funktionen 

4 

$010 

ShowTitle 

Bit wird gesetzt, wenn man 
‘ShowTitle ()‘ aufruft 

5 

$020 

Beeping 

Bit wird gesetzt, wenn man 
‘DisplayBeep ()‘ aufruft 

6 

$040 

CustomBitMap 

muß man setzen, wenn an seine 
eigene ‘BitMap’- Struktur be 
nutzen will 

7 

$080 

ScreenBchind 

wenn gesetzt, Screen wird hin 
tcr allen anderen Screens 
geöffnet 

8 

$100 

ScreenQuiet 

es erscheinen keine Gadgets 
und kein Title mehr auf dem 
Screen 
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3.2 Screendatenstruktur 


Wenn man die Argumentenliste mit den gewünschten Werten ge¬ 
füllt hat, übergibt man sie der “OpenScreen ()‘-Routinc, welche 
schließlich den Screen dann ‘öffnet*. 


Zum öffnen des Screens fehlt jetzt nur noch die Beschreibung der 
Routine ‘OpenScreen ()‘. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


OpenScreen (OSArgs) (AO) 

intuition.1ibrary 
-198 = -$c6 

AO = Zeiger auf 'OSArgs-Struktur' 

in DO = Zeiger auf 'Screen'-Struktur [siehe unten] 

Diese Routine öffnet einen Screen mit den in der 
'OSArgs-'Struktur beschriebenen Funktionen 


Natürlich exestiert parallel zum öffnen eines Screens auch eine 
Routine, welche diesen wieder schließt: 


Routine : 
Library : 
Offset 
Parameter: 

Rückgabe : 
Erklärung: 


CloseScreen (Screen) (AO) 

intuition.1ibrary 
-66 = -$42 

AO = Zeiger auf 'Screen-Struktur', welchen man in DO 

durch die Routine 'OpenScreen ()' erhält 

keine 

Diese Routine schließt einen Screen auf den der Zeiger in 
AO zeigt. Diesen Zeiger erhält man mit 'OpenScreen ()'. 


Die ‘OpenScreen ()“-Routine übergibt in DO einen Zeiger auf die 
Screendatenstruktur. In dieser Struktur sind alle nötigen Struktur¬ 
en und Parameter enthalten die zum Aufbau eines Screens erfor¬ 
derlich sind. Wie z. B. die RastPort-Struktur, welche sehr wichtig 
für die Darstellung von Text und Bobs ist. 
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Wo nun die einzelnen Strukturen genau zu finden sind, wird 
durch die kurze Beschreibung der Screcndatcnstruktur ersicht¬ 
lich: 


‘Scrccn‘-Struktur: (Länge = 342 Bytes) 

Erhält man in DO zurück, wenn man 'OpenScreen ()‘ aufruft! 


Offset Typ Bezeichnung Beschreibung 


000 

Long 

NextScreen 

004 

Long 

FirstWindow 

008 

Word 

X Pos 

010 

Word 

Y Pos 

012 

Word 

Width 

014 

Word 

Heigth 

016 

Word 

MouseY 

018 

Word 

MouseX 

020 

Word 

ScreenTyp 

022 

Long 

Title 

026 

Long 

STitle 

030 

Byte 


031 

Byte 


032 

Byte 


033 

Byte 


034 

Byte 


035 

Byte 


036 

Byte 


037 

Byte 


038 

Byte 


039 

Byte 

Pad 

040 

Long 

Font 


Zeiger auf nächsten Screen 
Zeiger auf erstes Window auf 
diesem Screen 
x-Position des Scrcens 
y-Position des Screens 
Breite der Bitmap 
Höhe der Bitmap 
Y-Koordinate des Mauspointers 
X-Koordinate des Mauspointers 
siehe Screen_Typ 
Zeiger auf Screen-Titletext 
Zeiger auf Standart Titletext 
Kopfleistenhöhe 
vertikale Grenze der Kopfleiste 
horizontale Grenze der Kopflei¬ 
ste 

vertikale Grenze des Menüs 
horizontale Grenze des Menüs 
oberer Fensterrahmen 
linker Fensterrahmen 
rechter Fensterrahmen 
unterer Fensterrahmen 
unbenutzt 

Zeiger auf Font-Struktur 
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044 

.... 

ViewPort 

084 

.... 

RastPort 

184 

.... 

BitMap 

224 

.... 

Laycrlnfo 

326 

Long 

GadGet 

330 

Byte 

DetailPen 

331 

Byte 

BlockPen 

332 

Word 

BackUp 

334 

Long 

Extern 

338 

Long 

User 

342 


END 


ab hier liegt die ViewPort- 

Struktur vom Screen 

ab hier liegt die RastPort- 

Struktur vom Screen 

ab hier liegt die BitMap-Struk 

tur vom Screen 

ab hier liegt die Laycrlnfo- 

Struktur vom Screen 

Zeiger auf erste Screen-Gad- 

get-Struktur 

Farbregisternummer für die 
Schriftfarbe 

Farbregisternummer für die 
Hintergrundfarbe 
Backup-Register für ‘Display- 
Bccp ()‘-Routinc 
Zeiger auf externe Daten 
Zeiger auf User Daten 
Ende der "Scrcen'-Struktur 


Folgendes Beispie 11 isting zeigt, wie man z. B. die Adresse des 
Rast Ports ermittelt: 


move.l screen,aO 
add.1 #64,aO 


: Adresse der Screendatenstruktur nach AO 
: AO = Adresse vom RastPort 
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3.3 Fenster öffnen 

Wenn man unter Intuition programmiert, ist man sogar in der La¬ 
ge, darauf Fenster zu verwalten. Dieses ist wirklich kinderleicht 
und bietet einem unwahrscheinliche Möglichkeiten. 

Die Routine ‘OpenWindow ()' öffnet uns das gewünschte Fenster 
und ‘CloseWindow ()‘ schließt es wieder. Man ist in der Lage sein 
Fenster nach belieben aufzubauen. Wir wollen hier jedoch nur 
auf das einfache öffnen und schließen eines Fensters eingehen. 

Wie beim öffnen eines Scrccns, benötigen wir auch für das Fen¬ 
ster eine Argummentenliste, die man der Routine ‘OpenWindow 
()" übergeben muß. Diese Argumentenliste ist wie folgt aufge¬ 
baut: 


‘OWArgs‘-Struktur: (Länge = 48 Bytes) 

Wird für die Routine ‘OpenWindow ()“ benötigt! 


Offset 

Typ 

Bezeichnung 

000 

Word 

X_Pos 

002 

Word 

Y_Pos 

004 

Word 

Width 

006 

Word 

Heigth 

008 

Byte 

detail_pen 

009 

Byte 

block_pen 

010 

Long 

IDCMP-Flags 

014 

Long 

Window_Typ 


Beschreibung 

X-Position des Windows auf 
dem Screen 

Y-Position des Windows auf 
dem Screen 
Breite des Windows 
Höhe des Windows 
Farbregisternuinmer für Text¬ 
farbe 

Farbregisternuinmer für Hinter 

grundfarbe 

siehe unten 

siehe unten 
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018 

Long 

Gadget 

022 

Long 

CheckMark 

026 

Long 

title 

030 

Long 

Screen 

034 

Long 

BitMap 

038 

Word 

M inWidth 

040 

Word 

MinHeigth 

042 

Word 

M axWidth 

044 

Word 

M axHeigth 

046 

Word 

Screen_Typ 

048 


END 


Zeiger auf Gadget-Struktur (0 = 
keine) 

Zeiger auf eine Graphikstruktur 
für eigene Symbole zum Abha¬ 
ken von Menüpunkten 
Zeiger auf Windowtitletext, der 
mit Nul 1 endet 
Zeigeraufeine ’Screen*- 
Struktur 

Zeiger auf eigene Bitinap- 
Struktur (0 = keine) 
Mindestbreite des Fensters 
Mindesthöhe des Fensters 
Maximalbreite des Fensters 
Maximalhöhe des Fensters 
muß der selbe wie beim Screen 
sein 

Ende der OWArgs-Struktur 


Wie sich schon aus der Struktur ersehen läßt, braucht man für das 
öffnen eines Fensters einen Screen auf dem das Fenster verwaltet 
werden kann. Dazu muß man die Adresse der Screendatenstruktur, 
welche man in DO durch die Routine ‘OpenScreen ()‘ erhält, in 
diese Struktur übertragen (Offset 30 - Screen). 

z.B.: move.l dO,OWArgs+30 ; DO = Screendatenstruktur 


Mit den IDCMP-Flags kann man dem System mitteilen bei wel¬ 
chen Ereignissen das System dem Programm eine Mitteilung sen¬ 
den soll, welche dann mit der Exec-Routine “GetMsg ()‘ abgefragt 
werden kann (z. B. beim Anklicken des Windowschließsymbols 
usw.). 
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Hier die möglichen IDCMP-Flags: 

IDCMP-Flags: diese Bits bestimmen, bei welchen Ereignissen In¬ 
tuition dem Programm eine Meldung übermitteln soll! 

Bit Wert Bezeichnung Nachricht bei: 


00 

$000001 

SizeVerify 

01 

$000002 

NewSize 

02 

$000004 

RefreshWindow 

03 

$000008 

MouseButtons 

04 

$000010 

MouseMove 

05 

$000020 

GadGetDown 

06 

$000040 

GadgetUp 

07 

$000080 

ReqSet 

08 

$000100 

MenuPick 

09 

$000200 

CloseWindow 

10 

$000400 

RawKey 

11 

$000800 

ReqVerify 

12 

$001000 

ReqClear 

13 

$002000 

MenuVerify 

14 

$004000 

NewPrefs 

15 

$008000 

Disklnscrtcd 

16 

$010000 

DiskRemoved 

17 

$020000 

WBcnchMcssage 

18 

$040000 

Active Window 

19 

$080000 

InActiveWindow 

20 

$100000 

DeltaMove 

21 

$200000 

VanillaKey 

22 

$400000 

IntuiTicks 


Veränderung der Fenstergröße 
erneuern eines Windows 
drücken einer Maustaste 
Bewegungen der Maus 
Auswahl eines speziellen Gad 
gets 

s.o. (aber wenn linke Maustaste 
losgelassen wird) 

Erscheinung eines Requesters 
Auswahl eines Menüpunktes 
schließen des Fensters 
drücken einer Taste 

verschwinden eines Requesters 

ändern der Preferences 
cinlcgcn einer Diskette 
Herausnehmen einer Diskette 

aktivieren des Windows 
desaktivieren des Windows 
Mausbewegungen relativ mel 
den 
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Was für Eigenschaften soll nun unser Fenster aber besitzen? 

Dieses können wir mit den Window-Typ-Flag bestimmen. Ob un 
scr Fenster verschiebbar, vergrößerbar etc. sein soll. 

Window_Typ: 

die Bits bestimmen die Eigenschaften eines Fensters! 


Bit Wert Bezeichnung 

00 $0000001 WindowSizing 
01 $0000002 WindowDrag 
02 $0000004 WindowDepth 
03 $0000008 WindowClosc 

04 $0000010 SizeBright 
05 $0000020 SizeBBottom 
06 $0000040 SimplcRcfrcsh 
07 $0000080 SuperBitMap 
08 $0000100 BackDrop 
09 $0000200 ReportMouse 

10 $0000400 GimmeZeroZero 

11 $0000800 BordcrLcss 

12 $0001000 Activatc 

13 $0002000 WindowAktive 

14 $0004000 InRequest 

15 $0008000 MenuState 

16 $0010000 RMBTrap 

17 $0020000 NoCarcRefrcsh 

24 $1000000 WindowRefresh 

25 $2000000 WBcnchWindow 

26 $4000000 WindowTickcd 


Beschreibung 

Fenstergröße veränderbar 
Fenster verschiebbar 
Fcnstcrübcrlagcrung möglich 
besitzt ein Fcnstcrschlicßsym- 
bol 

Vergrößerungsgadget ist rechts 
Vergrößerungsgadget ist unten 
Ncuzcichncn manuell 
ganzen Fcnstcrinhalt speichern 
Fenster nach Hinten 
Mauskoordinaten melden 
Fenster ohne Leiste 
Fenster ohne Ränder 
Fenster sofort aktiv 
wird von Intuition gesetzt 
wird von Intuition gesetzt 
wird von Intuition gesetzt 
bei drücken der rechten Maus¬ 
taste kein Menü 
keine Erncucrungsmcldung 
wird von Intuition gesetzt 
wird von Intuition gesetzt 
wird von Intuition gesetzt 
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3.4 Fensterdatenstruktur 

Jetzt fehlt uns zum öffnen des Fensters nur noch die Beschrei¬ 
bung der Routinen ‘OpenWindow ()‘ und ‘CloseWindow ()': 

Routine : OpenWindow (OWArgs) (AO) 

Library : intuition.library 

Offset -204 = -Scc 

Parameter: AO = Zeiger auf 'OWArgs-Struktur' 

Rückgabe : in DO = Zeiger auf 'Window'-Struktur [siehe unten] 
Erklärung: Diese Routine öffnet ein Window auf dem in der OWArgs- 
Struktur angegebenem Screen, mit den gewünschten Funk¬ 
tionen 


Routine 

Library 

Offset 

Parameter 

Rückgabe : 
Erklärung: 


CloseWindow (Window) (AO) 

intuition.library 
-72 = -$46 

AO = Zeiger auf 'Window-Struktur', welchen man in DO 
durch die Routine 'OpenWindow ()' erhält 

keine 

Diese Routine schließt ein Window auf den der Zeiger in 
AO zeigt. Diesen Zeiger erhält man mit 'OpenWindow ()'. 


Durch die Routine ‘OpenWindow ()‘ erhalten wir in DO einen Zei¬ 
ger auf, die zu dem gerade geöffnetem Window gehörende Win¬ 
dowdatenstruktur. In dieser Struktur sind alle nötigen Strukturen 
und Parameter enthalten, die zum verwalten eines Fensters nötig 
sind. 

Wie diese Datenstruktur im einzelnen aufgebaut ist, soll hier 
auch nur in Kurzform erwähnt werden. Damit Sie auch wissen, wo 
wir die Offsets für bestimmte Strukturen, welche wir in einigen 
Programmen, die in späteren Kapiteln folgen, herbekommen. 
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‘Window‘-Struktur: (Länge = 124 Bytes) 

Erhält man in DO zurück, wenn man “OpenWindow ()“ aufruft! 


Offset 

Typ 

Bezeichnung 

000 

Long 

NextWindow 

004 

Word 

x-Pos 

006 

Word 

y-Pos 

008 

Word 

Width 

010 

Word 

Heigth 

012 

Word 

DeltaMouseY 

014 

Word 

DeltaMouseX 

016 

Word 

MinWidth 

018 

Word 

M inHeigth 

020 

Word 

MaxWidth 

022 

Word 

MaxHeigth 

024 

Long 

WindowTyp 

028 

Long 

Menu 

032 

Long 

Title 

036 

Long 

FirstRequest 

040 

Long 

DKRequest 

044 

Word 

BRequest 

046 

Long 

Screen 

050 

Long 

Rast Port 

054 

Byte 


055 

Byte 



Beschreibung 

Zeiger auf nächste Fenster 
Struktur 

x-Position des Windows, relativ 
zum Screen 

y-Position des Windows, relativ 
zum Screen 
Breite des Fensters 
Höhe des Fensters 
Y-Koordinate der Maus, relativ 
zum Fenster 

X-Koordinate der Maus, relativ 
zum Fenster 

minimale Breite des Fensters 
minimale Höhe des Fensters 
maximale Breite des Fensters 
maximale Höhe des Fensters 
siche oben (Window_Typ) 

Zeiger auf Menüstruktur 
Zeiger auf TitlcText 
Zeiger auf erste aktive Reque 
sterstruktur 

Zeiger auf Double-Click-Re 

questerstruktur 

Anzahl der Requester, die das 

Fenster sperren 

Zeiger auf ‘Screen'-Struktur 

Zeiger auf “RastPort'-Struktur 

des Fensters 

Linker Rahmen 

Oberer Rahmen 
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056 

Byte 


057 

Byte 


058 

Long 

R Rast Port 

062 

Long 

Gadget 

066 

Long 


070 

Long 


074 

Long 

SprData 

078 

Byte 

SprHeigth 

079 

Byte 

SprWidth 

080 

Byte 

XOffset 

081 

Byte 

YOffset 

082 

Long 

IDCMP-Flag 

086 

Long 

UMessagePort 

090 

Long 

WMessagePort 

094 

Long 

MessageKey 

098 

Byte 

DetailPen 

099 

Byte 

BlockPen 

100 

Long 


104 

Long 

STitle 

108 

Word 

GZZ-MausX 

110 

Word 

GZZ-MausY 

112 

Word 

GZZ-Width 

114 

Word 

GZZ-Hcigth 

116 

Long 

Extern 

120 

Long 

User 

124 


END 


Rechter Rahmen 

Unterer Rahmen 

Zeiger auf Rahinen-RastPort- 

Struktur 

Zeiger auf erste Gadget-Struk 
tur 

Zeiger auf Eltern-Fenster- 
Struktur 

Zeiger auf Kind-Fenster-Struk 
tur 

Zeiger auf SpriteData für 
MausPointer 
Höhe des Spritepointers 
Breite des Spritepointers (max. 
16 ) 

x-Offset des Spritepointers 
y-Offset des Spritepointers 
siehe oben 
User-Message-Port 
Fenster-Message-Port 
Intuition-Message-Port 
Farbregisternuminer der 
Schriftfarbe 

Farbregisternuminer der Hinter 
grundfarbc 

Zeiger auf eigene Me 
nü-Hakensyinbole-Struktur 
Zeiger auf Screcn-Titlctext 


Zeiger auf Externe Daten 
Zeiger auf User Daten 
Ende der ‘Window'-Struktur 
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Am Ende dieses Kapitels noch ein Beispielprogramm, welches ei¬ 
nen Screen und ein Fenster darauf öffnet. Es wartet dann solange 
bis das Fensterschließsymbols aktiviert wird, so daß daraufhin das 
Fenster geschlossen wird. Mit der rechten Maustaste kann das 


Programm beendet werden. 

no - Srrppn __ 


Start: 

move.1 #intname,al 

Zeiger auf Intuitionname 

cl r.1 dO 

Version = 0 

move.l 4,a6 

Execbase nach A6 

jsr -552( a6 ) 

Open Library 

move.l dO, intbase 

Intuitionbasis speichern 

tst.l dO 
beq exit 

Error ? 

move.l #OSArgs,aO 

Zeiger auf Screenargumentenli 
ste 

move.l intbase,a6 

Intuitionbasis nach A6 

jsr - 198 ( a 6) 

OpenScreen 

move.l dO,screen 

Adresse der Screendatenstruktur 
speichern 

tst.l dO 
beq exit 

Error ? 

move.l #OWArgs,a0 

Zeiger auf Windowargumentenli 
ste 

move.l intbase,a6 

Intuitionbasis nach A6 

jsr -204(a6) 

OpenWindow 

move.l dO,window 

Adresse der Windowdatenstruktur 


speichern 

tst.l dO 
beq exit 

Error ? 
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main: 

btsl #10,Sdff016 : rechte Maustaste gedrückt ? 

beq exit 

bsr message ; Ereignis abfragen 

bra main 


Message Abfragen 


aessage: 


move.l window,aO 

; Windowdatenstruktur 

cmp.l #0,a0 
beq message_exit 

; 1 iegt eine Adresse vor ? 

move.l 86(aOJ,aO 

; Zeiger auf Window-OserPort 

move.l 4,a6 

: Execbasis 

jsr -372(a6) 

: GetMsg () 

tst. 1 dO 

beq message_exit 
move.1 dO,aO 

: wurde Message gesendet? 

move.l 20(a 0),dO 

: DO = enthält IDCMP-Wert 

cmp.l #$200,dO 
bne message_exit 

: WindowClose ? 

bsr closewindow 

; Window schließen 


aessage_exit: 

rts 


Window schließen 


closewindow: 
move.1 window,aO 
cmp.l #0,a0 
beq cwl 

move.l intbase,a6 
jsr -72(a6) 
move.l #0,window 


; Windowdatenstruktur 
; liegt eine Adresse vor ? 

; Intuitionbasis 
; Closewindow 

; Window-Speicherstelle löschen 
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cwl: 
rts 


Prograaa beenden 


exit: 

bsr closewindow 
move.l screen.aO 
cmp.l #0,aO 
beq exit2 
move.l intbase,a6 
jsr -66(a6) 

exit2: 

move.l intbase,al 
cmp.l 10,al 
beq ex i 13 
move.l 4,a6 
jsr -414(a6) 

exit3: 
rts 


;-Parameter- 

intname: dc.b "Intuition.1ibrary", 0 
even 

intbase: dc.l 0 
window: dc.l 0 
OSArgs: 
dc.w 0,0 
dc.w 320,256 
de .w 5 

dc.b 1,3 


: Window schließen 
; Screendatenstruktur 
; 1iegt eine Adresse vor ? 

; Intuitionbasis 
; CloseScreen 


: Intuitionbasis 
; 1 iegt eine Adresse vor ? 

; Execbasis 
; CloseLibrary 


; Programmende 


ab hier Screenargumentenl iste 

x und y-position 

Breite und Höhe 

Anzahl der Bitplanes (=32 Far 

ben) 

Textfarben 


95 









3. Kapitel 


Programmierung unter Intuition 


dc.w 0 
dc.w 15 
de .1 0 
dc.l title 
de. 1 0 
dc.l 0 
title: dc.b 
even 

OWArgs: 

dc.w 0,40 
dc.w 130,50 
dc.b 1,2 
dc.l $200 
dc.l S100b 
dc.l 0 
dc.l 0 
dc.l wtitle 

screen: 
dc.l 0 

de. 1 0 
dc.w 50,40, 
dc.w 15 
wtitle: dc.b 
even 


; ViewMode = Normal 
; Screen mit allen Funktionen 
: kein eigener Font 
; Zeiger auf Titletext 
; keine Gadget 

; keine eigene Bitmap-Struktur 
Press Right Mouse to Exit',0 


: ab hier Windowargumentenliste 
: x und y-position 
; Breite und Höhe 
: Textfarben 

: IDCMP-Flags (C1oseWindow) 

: Window-Typ-Flag 
: kein Gadget 
; keine CheckMark 
: Zeiger auf Windowtit1etext 


50,100 

"Ein Window",0 


hier wird Screendatenstruktur 
gespeichert 

keine eigene Bitmapstruktur 

Begrenzungsgrößen 

Screentyp 


Prograamende 
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• Unterbrechungen - Interrupts 

• User-Interrupt 

• Raster-Interrupt 
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4. Unterbrechungen - Interrupts 

Oft ist es notwendig, irgendwelche Zustände bestimmter Register 
zu überprüfen oder man möchte einfach nur bestimmte Routinen 
in regelmäßigen Zeitabständen anspringen, um z. B. ruckfreie 
Animation ablaufen zu lassen. 

Man kann dazu natürlich in seinem Programm, die laufende Zeit 
abfragen und daraufhin eine bestimmte Routine anspringen. Aber 
selbst diese Möglichkeit wäre noch viel zu ungenau. Außerdem ist 
sie sehr rechenintensiv und kostet Speicher. 

Hierfür exestieren die Interrupts. Interrupts - kurz IRQ - sind wie 
der Name schon sagt, Unterbrechungen. Sie unterbrechen das lau¬ 
fende Programm bei bestimmten Ereignissen, führen eine angege¬ 
bene Routine aus und springen danach wieder ins unterbrochende 
Programm, welches wieder fortgesetzt wird. 

Der Amiga bietet einem die Wahl zwischen 15 verschiedenen Er¬ 
eignissen, bei denen ein IRQ ausgelöst wird. Es stehen einem je¬ 
doch nur 7 verschiedene Interruptebenen zur Verfügung. Eine In¬ 
terruptebene ist nichts weiter als eine Adresse, in der die Anfang¬ 
sadresse der Routine gespeichert ist, welche bei einer Unterbre¬ 
chung ausgeführt werden soll. 

Sie werden sich bestimmt fragen, welcher IRQ welche Ebene zu- 
gctcilt bekommt? 


Dazu bekommt jeder der 15 möglichen IRQs eine Priorität zwi¬ 
schen 1 und 7 zugetcilt. Alle IRQs mit gleicher Priorität werden 
zu einer Ebene zusammengefaßt. Diese Priorität wird als CPU- 
Priorität bezeichnet. 

Aber welcher IRQ einer gleichen Ebene wird nun zuerst ausge¬ 
führt? 
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Dafür erhält jeder IRQ noch eine Pseudo-Priorität zwischen 0 und 
14. Der IRQ welcher eine hähere Pseudo-Priorität besitzt, wird 
dann zuerst abgearbeitet. 

Woher soll nun der Amiga wissen, wo die Adresse der 
gewünschten Ebene zu finden ist? 

Diese Adressen liegen beim Amiga immer an der selben Stelle, 
beginnend bei $64 bis $7c. 

Das Ganze zur Verdeutlichung nochmal in Tabellenform: 

Interrupt- Priorität 


Name: 

CPU: 

Pseudo: 

Ebene: 

Ereignis: 

NMI 

7 

15 

$7C 

(Nicht maskierter IRQ) 

EXTER 

6 

13 

$78 

Signal vom CIA-B 

DiskSync 

5 

12 

$74 

Sync-Word der Disk paßt 

RBF 

5 

11 

$74 

Serieller Input 

Audio3 

4 

10 

$70 

Audiokanal 3 Daten am Ende 

Audio2 

4 

09 

$70 

Audiokanal 2 Daten am Ende 

Audiol 

4 

08 

$70 

Audiokanal 1 Daten am Ende 

AudioO 

4 

07 

$70 

Audiokanal 0 Daten am Ende 

BLIT 

3 

06 

$6c 

Blitteroperation fertig 

VertBlank 

3 

05 

$6c 

neues Bild fängt an 

Copper 

3 

04 

$6c 

Copperprogramm am Ende 
angelangt 

Ports 

2 

03 

$68 

Signal von CIA-A 

Soft Int 

1 

02 

$64 

Software IRQ 

DSKBLK 

1 

01 

$64 

Disk-DMA fertig 

TBE 

1 

00 

$64 

Serielle Ausgabe 
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Es sind natürlich nicht immer alle IRQs angeschaltct, was vielzu- 
viel rechenzeit kosten würde. Sondern immer nur ganz bestimmte, 
wie z. B. der DSKBLK-IRQ, welcher immer dann angesprungen 
wird, wenn man Daten von Diskette lädt. Lediglich der Vert- 
Blank-IRQ ist immer angeschaltet. Denn der sorgt dafür, das 50 
mal in der Sekunde das selbe Bild aufgebaut wird. 

Welche IRQs nun erlaubt werden dürfen und welche nicht, kann 
man durch setzen bestimmter Bits im INTENA-Register 
(SDFF09A) cinstellcn. Wenn ein IRQ gestartet wird, was durch 
setzen eben erwähnter Bits geschieht, wird im INTREQ-Register 
(SDFF09C) das dazugehörige Bit gesetzt. Dieses Bit muß man in 
seiner IRQ-Routine, deren Adresse man in der entsprechenden 
Ebene eingetragen hat, wieder zurücksetzen. Ansonsten würde nie 
wieder das eigentliche Programm fortgesetzt werden. Jede IRQ- 
Routine muß auch mit einem RTE enden, damit auch wieder zum 
eigentlichen Programm zurückgesprungen werden kann. Eine ge¬ 
naue Beschreibung der Register entfällt hier, da wir uns ja nur 
mit der Systemprogrammierung beschäftigen wollen und nicht mit 
der Hardware. 


4.1 User-Interrupt 

Ein User-Interrupt, welcher auch als Softinterrupt bezeichnet 
wird, ist schon automatisch vom System initialisiert. 

Wir wissen ja, das die Routine welche bei einem Soft-Interrupt 
angesprungen wird, in der Ebene 1, also Adresse $64, zu finden 
ist. Wir brauchen also lediglich diese Adresse auszulesen und 
zwischcnzuspcichcrn. Danach tragen wir dann die Adresse unserer 
eigenen IRQ-Routine dort ein. Am Ende unserer IRQ-Routine 
springen wir dann wieder zur eigentlichen Systemroutine, welche 
dann den IRQ mit RTE beendet. 
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Diese Methode ist eigenlich gar nicht erlaubt, denn sie ist nichts 
halbes und nichts ganzes. Wir programmieren nicht über die 
Hardware aber auch nicht über die Systemroutinen. 

Diese Methode funktioniert jedoch einbahnfrei und ist zudem 
noch die kürzeste und einfachste. Denn wir erweitern einfach die 
System-IRQ-Routinen. Der Nachteil ist aber, das wir nicht jede 
IRQ-Ebcne so ansteuem können, sondern nur die, die auch vom 
System schon initialisiert wurden, (z. B. Ebene 1 oder 3) 

Hier nun das Ganze als gut dokumentiertes Listing: 

.-Prograiinaie = SoftlRQ--- 

;-wartet auf rechte Maustaste- 

.- läßt den Bildschiri blinken - 


Start: 

move.l S64,o1dirq+2 ; alte IRQ-Adresse auslesen und speichern 

move.l #softirq,S64 : eigene IRQ-Adresse in Ebene 1 eintragen 


wait: 

btst #10, $dff016 
bne wait 


: wurde rechte Maustaste gedrückt 
; wenn nicht dann weiter abfragen 


exit: 

move.l oldirq+2,$64 : alte IRQ-Adresse wieder zu- 

; rückschreiben 

rts ; Programm beenden 


Hier beginnt IRQ-Routine 


softirq: 

movem.l d0-d7/a0-a6,-(sp) : Register retten 

move.w #52000,dO : Farbzähler auf $2000 setzen 
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15: 

move.w dO,$dff180 
dbra dO,15 

movem.l (sp)+,d0-d7/a0-a6 


; Farbe aktivieren 
; Farbzähler erniedrigen 
; Register zurückholen 


oldirq: 
jmp oldirq 


; ab hier nichts ändern (Wichtig) 
; alte System-IRQ-Routine fort- 
; setzen 


Listing Ende 


4.2 Raster-Interrupt 

Ein Rasterinterrupt wird immer dann erzeugt, wenn die letzte Ra¬ 
sterzeile des Bildschirms erreicht wurde. Dieser Interrupt eignet 
sich besonders gut für Scrolling bzw. ruckfreie Animationen. Au¬ 
ßerdem besitzt ein Raster-IRQ eine höhere Priorität als ein Soft- 
IRQ und wird deswegen nicht von diesem unterbrochen. 

Wie man einen solchen Raster-IRQ programmiert, wollen wir an¬ 
hand von zwei verschiedenen Beispielen demonstrieren. 

Die erste wäre im Prinzip genauso wie beim Soft-IRQ. Wir erwei¬ 
tern also nur die System-Raster-IRQ-Routine. Deswegen können 
wir obiges Programm fast vollständig übernehmen. Es muß ledig¬ 
lich die Ebene 1 durch die Ebene 3 ersetzt werden. 
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Hier nochmal zur Verdeutlichung das abgeänderte Listing: 

■-Prograiinaie = RasterIRQ - 

;-wartet auf rechte Maustaste - 

;- läßt den Bildschiri blinken - 


Start: 

move.l S6c,o1dirq+2 ; alte IRQ 
move.l #rasterirq,$6c : eigene II 

wait: 

btst #10,$dff016 
bne wait 

exit: 

move.l o1dirq+2,S6c 
rts 

;-Hier beginnt Raster-1Ri 


Adresse auslesen und speichern 
:Q-Adresse in Ebene 3 eintragen 


: wurde rechte Maustaste gedrückt 
; wenn nicht dann weiter abfragen 


: alte IRQ-Adresse wieder zu- 
; rückschreiben 
: Programm beenden 

I-Routine- 


rasterirq: 

movem.l d0-d7/a0-a6,-(sp) 
move.w #$2000,dO 

15: 

move.w dO,Sdff180 
dbra dO,15 

movem.l Isp)+,d0-d7/a0-a6 

oldirq: 

jmp oldirq 


; Register retten 
: Farbzähler auf $2000 setzen 


; Farbe aktivieren 
; Farbzähler erniedrigen 

; Register zurückholen 


: ab hier nichts ändern (Wichtig) 
; alte System-IRQ-Routine fort- 
; setzen 

Listing Ende - 
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Ihnen ist bestimmt sofort beim Testen des Programmes aufgefal¬ 
len, daß die Farbschleife wesentlich schneller abläuft, als beim 
Soft-IRQ. Dieses liegt, wie oben schon kurz erwähnt, an der 
höheren Priorität. 

Die zweite Möglichkeit einen Raster-IRQ zu erzeugen, ist die 
über das System. Denn das System stellt uns zur Interruptprogram¬ 
mierung einige Routinen zur Verfügung. Diese Routinen sind 
zwar nicht sehr leistungsfähig, wir wollen aber trozdem auf diese 
Möglichkeit kurz eingehen. 

Diese Routinen befinden sich in der Excc-Bibliothck. Und zwar 
AddlntServer () und RemlntServcr (). 

Die Routine AddlntServer () fügt einen Interrupt zum System hin¬ 
zu und die Routine RemlntServcr () entfernt diesen wieder. 

Die Routinen verlangen lediglich in DO die Interruptnummer, 
welche mit den Pseudoprioritäten (siehe obige Tabelle) 
übereinstimmen und in Al einen Zeiger auf eine Interruptstruk¬ 
tur. Es können jedoch nicht alle Nummer eingesetzt werden. 
Denn diese Routinen verwalten nur sogenannte Interrupt-Server- 
Listen, welche schon vorher vom System initialisiert worden sind. 
Mit diesen Listen können mehere Interrupts nacheinander vom 
System abgearbeitet werden. 

Folgende Nummern sind erlaubt: 3, 5, 13 und 15 (wird jedoch 
nicht vom System benutzt) 
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Die Intcrruptstruktur hat folgenden Aufbau: 

Interrupt-Struktur: (Länge = 22 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

000 

Long 

Succ 

004 

Long 

Pred 

008 

Byte 

Type 

009 

Byte 

Pri 

010 

Long 

Name 

014 

Long 

Data 

018 

022 

Long 

Code 

END 


Beschreibung: 

Zeiger auf nächste Liste (un 
wichtig) 

Zeiger auf vorangegangene Li 
stc (unwichtig) 

kodierter Node-Typ (auf Wert 2 
setzen) 

Priorität dieser Liste (von +127 
bis -128) 

Zeiger auf Namen dieser Liste 
(unwichtig) 

Zeiger auf Datenspeicher (un 
wichtig) 

Zeiger auf Intcrruptroutinc 
Ende der Interrupt-Struktur 


In Code trägt man die Anfangsadrcssc seiner IRQ-Routinc ein, 
welche ausgeführt werden soll. Diese Routine mul) allerdings mit 
RTS enden. 


Beschreibung der Intcrruptroutincn: 


Routine : 
Library 
Offset 
Parameter: 


Rückgabe : 
Erklärung: 


AddlntServer (Nuaaer,Interrupt) (DO,Al) 

exec.Iibrary 
-168 = -$A8 

DO = Interruptnummer - welcher IRQ benutzt werden soll 
(Erlaubt sind: 3, 5, 13, 151 
Al = Zeiger auf Interrupt-Struktur (siehe oben) 
keine 

Diese Routine fügt einen Interrupt zum System hinzu 
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Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


ReilntServer (Nuner,Interrupt) (DO,Al) 

exec.1ibrary 
-174 = -SAE 

DO = Interruptnummer - welcher IRQ entfernt werden soll 
(Erlaubt sind: 3, 5, 13, 15) 

Al = Zeiger auf Interrupt-Struktur (siehe oben) 
keine 

Diese Routine entfernt einen Interrupt wieder aus dem 
System 


Auf diese Art einen Interrupt zu erzeugen, ist wohl ein wenig 
komplizierter, jedoch arbeitet sie einwandfrei zusammen mit dem 
System. 

Das folgende Programm erzeugt wie obiges einen Rasterinterrupt, 
jedoch diesmal über die Systemroutinen. 

;---Progrannaie = RasterlRQ(Server) - 

;-wartet auf rechte Maustaste--- 

;- läßt Bildschiri blinken- 


addintserver = -168 
remintserver = -174 

Start: 

Zeiger auf Interrupt-Struktur 
IRQ-Nummer (5 = RasterlRQ) 
Execbasis 

Interrupt zum System hinzufüh 
ren 


move.i »Interrupt.,a 
move.l #5,dO 
move.i 4,a6 
jsr addintserver (a6) 
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wait: 

btst #10.Sdff016 
bne wait 

exit: 

move.l Interrupt,al 
move.l #5,dO 
move.l 4,a6 
jsr remintserver(a6) 
rts 


rechte Maustaste gedrückt? 
wenn nicht, dann weiter abfra- 
gen 

Zeiger auf Interrupt-Struktur 
IRQ-Nummer (5 = Raster 1RQ) 
Execbasis 

Interrupt wieder entfernen 
Programm beenden 


ab hier beginnt Raster-IRQ-Routine 


rasterirq: 

movem.l d0-d7/a0-a6,-(sp) 
move.w #$2000,dO 

15: 

move.w dO,Sdff180 
dbra dO,I5 

movem.l Isp)+,d0-d7/a0-a6 
rts 

;-Parameter- 

interrupt: 

de.I 0,0 
dc.b 2,0 
de .1 0,0 
dc.l rasterirq 


: Register retten 
; Farbzähler auf $2000 setzen 


Farbe aktivieren 
Farbzähler erniedrigen 
Register zurückholen 
mit RTS beenden (Wichtig) 


; ab hier Interruptstruktur 
; Typ = Interrupt, Pri = Nul I 
; Code (Zeiger auf IRQ-Routine) 


Listingende 


Welche von denen hier beschriebenen Möglichkeiten man nun 
benutzt, um einen Interrupt zu erzeugen, bleibt letzendlich Ihnen 
überlassen. Jede Routine hat Ihre Vor- bzw. Nachteile. 
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Fonts - Zeichensätze 
Aufbau der Fonts 
Aktivieren von Fonts 
Texte ausgeben 
Textroutinen 
Laufschriften 
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5. Fonts - Zeichensätze 

Auf fast jeder Amiga-Diskette befinden sich im Fonts-Verzeich¬ 
nis (dir) irgend welche Zeichensätze. Man kann sich somit ziem¬ 
lich schnell und einfach eine kleine Fontsammlung auf einer Ex¬ 
tra-Disk anlegen! Oder man kreiert sich, mit einen der zahlrei¬ 
chen Font-Editoren, einen absolut neuen Zeichensatz. 

Doch wie bekommt man nun einen solchen Font auf den Bild¬ 
schirm? 

Dazu befindet sich auf der Workbench-Disk im “Libs-Dir‘ eine 
Bibliothek, die sich ‘diskfont.library* nennt. Mit der lassen sich 
ziemlich einfach Zeichensätze in den Speicher laden (öffnen). 
Und wenn dann erst einmal ein Font ordnungsgemäß geöffnet wur¬ 
de, stellt die Grafikbibliothek einige Routinen zur Verfügung, mit 
denen man den Font verwalten kann. 

Nach einschalten des Amigas, befinden sich schon zwei Zeichen¬ 
sätze im Speicher. Es sind der "topaz 8" und "topaz 9". Welcher 
der beiden Zeichensätze nun aktiv ist, hängt von dem eingestell¬ 
tem Zeichen-Modus in den Prcfercneces ab (60 bzw. 80 Zcichen- 
modus). 


5.1 Aufbau der Fonts 

Wenn man einen Zeichensatz öffnet, erhält man in DO immer ei¬ 
nen Zeiger auf eine TextFont-Struktur zurück. Die Anfangsadresse 
dieser Struktur wird dann, durch aufrufen entsprechender Routi¬ 
nen, in dem gewünschten RasterPort (Offset 52) eingetragen. Die¬ 
se TextFont-Struktur braucht das System um einen Zeichensatz 
auf dem Amiga verwalten zu können. 
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Aufbau der Datenstruktur "TextFont": 

Text Font-Struktur: (Länge 3 52 Bytes) 

Offset Typ Bezeichnung Beschreibung 


000 

Long 

Succ 

004 

Long 

Pred 

008 

Byte 

Type 

009 

Byte 

Pri 

010 

Long 

Name 

014 

Long 

ReplyPort 

018 

Word 

Lenght 

020 

Word 

YSize 

022 

Byte 

Style 

Normal 

Underline 

Bold 

Italic 

023 

Byte 

Flags 


024 

Word 

XSize 

026 

Word 

Baseline 

028 

Word 

BoldSmear 

030 

Word 

Accessors 


Zeiger auf nächsten Font 
Zeiger auf vorrangegangenen 
Font 

Node-Typ (12 - Font) 
Priorität 

Zeiger auf Fontnamen 
Zeiger auf AntwortPort 
Länge der Message 
Höhe des Zeichensatzes 
Stil des Zeichensatzes: 
normal • 0 
unterstrichen = 1 
fett - 2 
kursiv - 4 
extended - 8 
Preferences und Flags: 
ROM-Font - 1 
Disk-Font = 2 
Rev-Path - 4 
TallDot - 8 
WideDot • 16 
Proportional - 32 
Designed - 64 
Removed - 128 
durchschnittliche Fontbreite 
Fonthöhe ohne Unterlängen 
Smear-Effekt für Fettdruck 
Zugriffszähler (Null - Font 
wird gelöscht) 
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032 

Byte 

LoChar 

033 

Byte 

HiChar 

034 

038 

040 

Long 

Word 

Long 

CharData 

Modulo 

CharLoc 

044 

Long 

CharSpace 

048 

Long 

CharKcrn 

052 


END 


ASCII-Code des ersten Zei 
chcns 

ASCII-Code des letzten Zei 
chens 

Zeiger auf Zeichensatzdaten 
Bytes pro Zcichcnsatz-Zcilc 
Zeiger auf Offset-Daten für 
Zeichendecodierung 
Zeiger auf Breiten-Tabelle der 
Zeichen 

Zeiger auf Zeichenkern der Ta 
belle 

Ende der TexFont-Struktur 


Erläuterung der Datenstruktur: 


Offset 0 bis 20: Message 

Damit auf einen Font mehrere Tasks gleichzeitig zugreifen 
können, bedarf cs einer Message-Struktur welche das Multi-Tas- 
king steuert. Für den User Unwichtig. 


Offset 20: YSize 

Enthält die Höhe des Fonts. Die Höhe ist für alle Zeichen gleich. 


Offset 22: Style 

Hier steht die Charakteristika des Zeichensatzes. Also wie der 
Font auf dem Bildschirm ausgegeben werden soll. 
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Offset 23: Flags 

Beschreibt den augenblicklichen Status des Zcichcnsatzcs. Ob er 
sich z.B. im RAM oder auf der Diskette befindet. 

Offset 24 und 26: XSize und Baselinc 

Weitere Demensionen des Fonts. 


Offset 28: BoldSmcar 

Der Amiga gibt beim Fettdruck ein Zeichen zweimal aus, jedoch 
beim zweitenmal um einen Punkt nach rechts verschoben. Durch 
cintragcn eines anderen Wertes in BoldSmcar, kann das Zeichen 
auch um größere Abstände verschoben werden. 


Offset 30: Acccssors 

Hier befindet sich die Anzahl der Tasks, die auf diesen Font zu¬ 
greifen. Wenn ein Task diesen Zeichensatz schließt, wird dieser 
Zähler um eins erniedrigt. Erst wenn Acccssors den Wert Null 
enthält, wird der Font vollständig aus dem Speicher gelöscht. 


Offset 32 und 33: LoChar und HiChar 

Der Amiga ist in der Lage bis zu 256 Zeichen in einem Zeichen¬ 
satz unterzubringen. Jedoch nutzt nicht jeder Zeichensatz diese 
Kapazität aus. Deswegen werden hier der Wert des ersten und 
letzten ASCII-Codcs eingetragen. 
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Offset 34: CharData 

Hier befindet sich der Zeiger auf die Definition der Zeichen. Das 
heißt hier liegt die Anfangsadresse der Grafikdaten (des ersten 
Zeichens). 


Offset 38: Modulo 

Hier steht die Anzahl Bytes, die eine CharData-Zeilc lang ist. Um 
nun von eine CharData-Zcile in die nächste zu kommen, addiert 
man lediglich den Modulowert zur augenblicklichen Datenzeile. 

Offset 40: CharLoc 

Da der Amiga einen Zcichensatz zeilenweise speichert, also erst 
die erste Zeile aller Zeichen nacheinander, dann die zweite usw. 
und jeder Buchstabe unterschiedlich breit sein kann, benötigen 
wir Informationen, wie breit das einzelne Zeichen und an welcher 
Stelle es im Speicher zu finden ist. Dazu bekommt jedes Zeichen 
zwei Words zugeteilt. Im ersten steht der Offset zur Anfangsadres¬ 
se (CharData), im zweiten die Breite in Bits des Zeichens. Diese 
Zwei-Words-Arrays werden fr jedes Zeichen der Reihe nach abge¬ 
legt. CharLoc zeigt dann auf die Anfangsadresse der ersten beiden 
Words des ersten Zeichens. Dieses gilt jeweils für eine Zeile des 
Zeichensatzes. Wie kommt man aber von einer CharData-Zeile in 
die nächste? Siche dazu Modulobcschrcibung. 


Offset 44: CharSpacc 

Das zweite Word in CharLoc enthält zwar die Breite eines Zei¬ 
chens. Aber stellen Sie sich mal vor, wie es aussieht, wenn man 
einen Text so ausgeben würde! Der würde absolut gequetscht wer¬ 
den. Deswegen ist jedes Zeichen immer ein paar Punkte breiter 
als normal. Die tatsächliche Breite eines Zeichens wird in einem 
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Word gespeichert. Diese Words werden für alle Zeichen nachei¬ 
nander im Speicher abgelegt. CharSpace zeigt nun auf das erste 
Word eines Zeichens. 


Offset 48: CharKcm 

Das zweite Word auf das CharLoc zeigt enthält ja die Breite in 
Bits eines Zeichens und das Word auf das CharSpace zeigt die tat¬ 
sächliche Breite. Nehmen wir mal an ein Zeichen ist 10 Bits breit 
und die tatsächliche Breite beträgt 15 Bits. Es stellt sich jetzt die 
Frage, ab welchen Bit nun die 10 Bits ausgegeben werden sollen? 
Dafür exestiert ein weiteres Word. In diesem Word ist die Anzahl 
Bits gespeichert, die das Zeichen vor der Ausgabe nach rechts 
verschoben werden muß. Auch hier werden für jedes Zeichen ein 
Word nacheinander im Speicher abgelegt. CharKern zeigt dann 
auf das erste Word des ersten Zeichens. 


5.2 Aktivieren von Fonts 

Wenn man einen Zeichensatz aus dem Libs-Verzeichnis in den 
Speicher laden und danach aktivieren möchte, müssen folgende 
Schritte durchgeführt werden: 

1. "diskfont.library" öffnen 

2. Aus dieser Library die Routine "OpenDiskFont ()" auf- 
rufen 

3. "graphics.library” öffnen 

4. Aus dieser Library die Routine "SetFont" aufrufen 
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Durch folgende Schritte entfernt man einen Font wieder (denn je¬ 
der Font verbraucht Speicherplatz, den man, wenn man sein Pro¬ 
gramm beenden will, zuriiekgeben sollte): 

1. "graphics.library" öffnen, wenn sic nicht schon 
geöffnet wurde 

2. Aus dieser Library die Routine "CloseFont ()” und 
"RemFont ()” aufrufen 


Hier nun die Beschreibung der einzelnen Routinen: 


Routine 

Library 

Offset 

Parameter 

Rückgabe 


Erklärung: 


OpenDiskFont (TextAttr) (AO) 

diskfont.Iibrary (befindet sich auf Disk - Workbench) 

-30 = -Sie 

AO = Zeiger auf eine Text-Attribut-Struktur, welche den 
gewünschten Font genauer beschreibt, (siehe unten) 
DO = Zeiger auf TextFont-Struktur (siehe Aufbau der 
Fonts), die zu diesem Font gehört, oder Null wenn 
Error aufgetreten ist. 

Diese Routine lädt einen Font von Disk in den Speicher 
und legt die dazugehörige TextFont-Struktur an. 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


SetFont (RastPort,TextFont) (Al,A0) 

graphics.1ibrary 
-66 = -$42 

Al = Zeiger auf eine Rasterportstruktur in dem der ge¬ 
wünschte Font aktiviert werden soll. 

AO = Zeiger auf eine TextFont-Struktur, den wird durch 
die Routine "OpenDiskFont" in DO erhalten haben 

keine 

Diese Routine aktiviert einen Font im entsprechenden Ra¬ 
sterport. 
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Routine 

Library 
Offset : 
Parameter: 

Rückgabe : 
Erklärung: 


CloseFont (TextFont) (Al) 

graphics.1ibrary 
-78 = -$4e 

Al = Zeiger auf eine TextFont-Struktur, den wird durch 
die Routine "OpenDiskFont" in DO erhalten haben 

keine 

Diese Routine schließt einen Font wieder. Erst wenn ein 
Font geschlossen wurde, kann der Speicher, den er belegt 
wieder freigegeben werden. 


Routine : 
Library 
Offset 
Parameter: 

Rückgabe : 
Erk lärung: 


RemFont (TextFont) (Al) 

graphics.1ibrary 
-486 = -Sieb 

Al = Zeiger auf eine TextFont-Struktur, den wird durch 
die Routine "OpenDiskFont" in DO erhalten haben 

keine 

Diese Routine löscht einen Font aus dem Speicher. 


Wenn man einen Zeichensatz von Disk laden möchte, braucht 
man also lediglich die Routine "OpenDiskFont ()" aufzurufen. An 
diese Routine muß allerdings eine Struktur (TextAttr) übergeben 
werden. Diese ist notwendig, da in ihr die nötigen Parameter, 
welche von Ihnen eingetragen werden, stehen. Diese Struktur ist 
ziemlich kurz und folgendermaßen aufgebaut: 

TextAttr-Struktur: (Länge = 8 Bytes) 


Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Long 

FontName 

Zeiger auf Fontnamen, welcher 
mit Null endet 

004 

Word 

Height 

Fonthöhe (steht im jeweiligen 
Fonts-Dir) 


116 






5. Kapitel 


Fonts - Zcichcnsätzc 


006 

Byte 

Style 

Stil des Fonts (siche TcxtFont- 
Stru ktur) 

007 

Byte 

Flags 

Prcfcrenccs (siehe TextFont- 
Struktur) 

008 


END 

Ende der TcxtAttr-Struktur 


Um z.B. den topaz.font von Disk zu laden trägt man in Height die 
gewünschte Höhe ein (z. B. 8), in Flags den Wert 2 (DiskFont), da¬ 
mit der Font von Disk geladen wird und läßt den Fontnamc auf den 
Zeichensatznamen zeigen. 

z. B. 

init_textat.tr: 
move.l #fontname,textattr 
move.w #8,textattr+4 
move.b #2,textattr+7 
rts 

fontname: dc.b "topaz.font",0 
even 


5.3 Texte ausgeben 

Für das Ausgeben von Texten stellt das System uns zwei Routinen 
zur Verfügung. Einmal "PrintIText ()", welche wir in der Intuit¬ 
ions-Bibliothek finden und einmal "Text ()", welche uns die Gra¬ 
fik-Bibliothek bereit stellt. 


: Zeiger auf Fontname 
: Höhe des Fonts 
; Font von Disk laden 
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Beide Routinen haben ihre Vor- und Nachteile. Der ~PrintIText 
()"-Routinc kann man gleich die gewünschten Koordinaten und 
Farbe übergeben. Sie benötigt jedoch eine Struktur und ist etwas 
umständlich zu handhaben. 

Die "Text (/'-Routine braucht keine zusätzliche Struktur und ist 
auch ein wenig schneller als die obige, dafür geht sie aber immer 
von der gerade aktuellen Position und Schriftfarbc aus. 


Beschreibung der beiden Routinen: 

Routine : PrintIText (RastPort,IText.Left,Top) (A0,Al,D0,Dl) 


Library 

: intuition.library 


Offset 

: -216 

= -Sd8 


Parameter: AO = 

Zeiger auf RastPort-Struktur in dem der Text dar- 



gestel1t werden 

soll. 


Al = 

Zeiger auf IText-Struktur, die unteranderem den 



Text enthält (Aufbau siehe unten) 


DO = 

X-Position des 

Textes 


Dl = 

Y-Position des 

Textes 

Rückgabe 

keine 



Erklärung: Diese 

Routine gibt einen Text auf dem Bildschirm aus, wie 


er in 

der 1 Text-Struktur beschrieben wird. 

Aufbau der fText-Struktur: (Länge = 20 Bytes) 

Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Byte 

Detail Pen 

TextFarbe (Farbregisternum- 




mer) 

001 

Byte 

BlockPen 

Hintergrundfarbe (Farbregister- 




nummer) 

002 

Byte 

Mode 

Darstellungsart (0, 1, 4, 5, 8) 

003 

Byte 

Pad 

unbenutzt 
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004 

Word 

x_pos 

relative X-Position zur aktuel 
len Position 

006 

Word 

y_pos 

relative Y-Position zur aktuel 
len Position 

008 

Long 

Font 

Zeiger auf TextFont-Struktur 
oder Null 

012 

Long 

Text 

Zeiger auf Text, welcher mit 
Null endet 

016 

Long 

NcxtITcxt 

Zeiger auf weitere ITcxt-Struk 
tur oder Null 

020 


END 

Ende der IText-Struktur 


Routine : 

Text (RastPort,String,Count) (Al,A0,D0) 


Library : 

graphics .1 ibrary 


Offset : 

-60 = -$3c 


Parameter: 

Al = Zeiger auf RastPort-Struktur in dem der Text 
gestel1t werden soll. 

AO = Anfangsadresse des auszugebenen Textes. 

DO = Anzahl Buchstaben die ausgegeben werden sollen 

dar- 

Rückgabe : 

keine 


Erklärung: 

Diese Routine gibt eine Anzahl von Buchstaben auf 

dem 


Bildschirm aus. Allerdings an den aktuellen Koordinaten 


bzw. in der aktuellen Schriftfarbe. 



Nach soviel Theorie, wollen wir endlich auch mal einen Text in die 
Praxis umsetzen, sprich auf dem Bildschirm bringen. Wir verwenden 
dazu einen Font von der Diskette. 
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Das folgende Programm führt folgende Schritte durch: 

1. intuition.library und graphics.libary öffnen 

2. diskfont.library öffnen 

3. einen Lo-Res Screen öffnen 

4. ScrcenRastPort ermitteln 

5. mit OpcnDiskFont () einen Font von Diskette laden 

6. mit SetFont () den neuen Font aktivieren 

7. mit PrintIText einen Text auf dem Bildschirm ausge¬ 
ben 

8. Warten auf rechte Maustaste 

9. Screen wieder schließen 

A. mit CloseFont () den neuen Font wieder schließen 

B. mit RemFont () den neuen Font aus dem Speicher 
löschen 

C. intuition.library und graphics.library schließen 

D. diskfont.library schließen und Programm beenden 


- Prograaanaae = OpenFont - 

Lädt Font von Disk und gibt diesen auf Bildschira aus 
- Wartet auf rechte Maustaste - 

-- Intuitionlibrary öffnen --- 


move.l 4,a6 
move.l #intname.a1 
clr. 1 dO 
jsr -552(a6) 
move.l dO, intbase 


: ExecBase 
; Namen 
; Version 
; OpenLibrary 
: Basis speichern 


Grafik-Library öffnen 


move.l 4,a6 
move.1 #gfxname,al 
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clr. 1 dO 

jsr -552(a6) : OpenLibary 

move.i dO.gfxbase : Basis speichern 

- Diskfont-Library öffnen - 


move.I 4.a6 

move.I #diskfontname.al 
clr. I dO 

jsr -552(a6) ; OpenLibary 

move.I dO.diskfontbase : Basis speichern 

- screen öffnen - 

move.i intbase,a6 
move.I tnewscreen.aO 
jsr -19öla6) 
move.i dO.screenhd 

- screenrasterport ermitteln 

move.i screenhd.dO 
add.l #64.dO 

move.i dO.screenrastport 

- Font öffnen 

move. I diskfontbase,a6 
move.i #fontstruk aO 
jsr -301a6) 
move.i dO.fontadresse 

cmp.l #0.dO 


Zeiger auf textAttr-Struktur 
OpenDiskFont 

in DO = zeiger auf textFont- 

struktur 

Fehler? 


Zeiger auf Screen-struktur 
OpenScreen 
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- Neuen p onl aktivieren 

move.l <jfxbase,a6 
move.l screenrastport,al 
move.l fontalresse,aO 

jsr -66(a61 

- Demo Text Printen — 

move.l #10,dO 
move.l #30,dl 
move. 1 #textl,a1 
move.l screenrastport.aO 
move.l intbase,a6 
jsr -216la6l 


; Zeiger auf Rasterportstruktur 
: Zeiger auf textFont-struktur in 
: aO laden 
: SetFont 


: x-position 
; y-position 

; Zeiger auf Text-Struktur 
: Zeiger auf Rasterport-struktur 
: Basis 
: Pr int 1 Tex t 


Auf rechte Maustaste in Port 1 warten 


ma in: 

btst #10,Sdff016 
beq exit 
bra main 


Schließen des screens 


exit: 

move.l in tbase,a6 
move.l screenhd.aO 

jsr -661a6) : CloseScreen 
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-Fönt wieder schl ießen- 

move.l gfxbase,a6 
move.l fontadresse,al 
cmp.l #0,a1 
beq exit_l 

jsr -78(a6) : C1oseFont 


Font wieder löschen -— 

Font überhaupt vorhanden 0 
RemFont 

Librarys schließen - 


move.l gfxbase,a6 
move.l fontadresse,al 
cmp.l 10,al 
beq exitj 
jsr -486(a6) 


exitj: 

move.1 4.. aß 
move.l intbase.al 

jsr -414(a6) : CloseLibrary 

move.l 4,aß 
move.l gfxbase,al 

jsr -414(aßi : CloseLibrary 

move.l diskfontbase.al 
move.l 4,aß 

jsr -414(aßJ : CloseLibrary 

rts 

;- Paraieter - 

intname: dc.b "intuition.1ibrary",0 
even 

gfxname: dc.b "graphics.Iibrary',0 
even 
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diskfontname: dc.b "diskfont. 1 ibrary" .0 
even 

gfxbase: dc.l 0 
ir.tbase: dc.l 0 
screenhd: dc.l 0 
fontadresse: dc.l 0 
diskfontbase: dc.l 0 
screenrastport: dc.l 0 

;- Screen-Struktur - 


newscreen: 

de .w 0.0.320.256.5 
dc.b 0 1 
de. w 0.15 
dc.l 0 title.0.0 
title: dc.b "Font-Demo" .0 
even 


Text-Struktur 


textl: 

dc.b 
dc.b 
dc.b 
dc.b 
de .w 
de .w 

de. 1 
de. 1 
de. 1 
texta: 
even 


e 

0 

1 

0 

0 

0 

0 

texta 

0 

de.b "Der neue 


Zei 


Textfarbe aus colorregister 2 
Hintergrundfarbe aus colourregister 1 
inverse Textdarstellung 
unbenutzt 

relativer x-abstand 

relativer y-abstand zu gesetzten Koordina¬ 
ten 

Standartzeichensatz 
Zeiger auf Text 
keine weitere Text-Struktur 
chensatz !".0 
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Font-Struktur (textAttr) 


fontstruk: 
dc.l fontname 
dc.w 20 
dc.b 0 
dc.b 2 

fontname: dc.b "diamond.font".0 
even 


Zeiger auf Fontnamen 
Font-Höhe = 20 
Normal Darstellung 
Font auf Disk 
Fontname 


Ende des Listings 


5.4 Textroutinen 

Wenn man nun die 'Text ()‘-Routinc aus der graphics.library be¬ 
nutzt, ist es ja nun nicht gerade von Vorteil, da D der Text an einer 
"zufälligen" Position auf dem Bildschirm oder wohlmöglich in der 
selben Farbe, wie der Hintergrund erscheint. Was zur Folge hätte, 
daß man den Text überhaupt nicht sicht. Oder vielleicht möchten 
Sie den Text auch kursiv oder in Fettdruck darstcllcn, wie Sic es 
von Textverarbeitungsprogrammen kennen. 

Für diese Dinge und noch einiges mehr, stellt das System einige 
Routinen zur Verfügung. Diese Routinen finden wir alle in der 
graphics.library. 

Will man z. B. wissen, wie lang ein bestimmter Satz ist, trägt man 
in AO die Anfangsadrcssc des Satzes ein, in DO die Anzahl Buch¬ 
staben und in Al die RastPort-Adressc von Window bzw. Screcn. 
Sofern diese Schritte ordnungsgemäß durchgeführt worden sind, 
ruft man die Routine ‘TcxtLcngth ()* auf und erhält in DO die An¬ 
zahl Punkte zurück, die der Text lang ist. Dieses ist von Vorteil, 
wenn man wissen will, ob der Text noch auf die Zeile paßt. 
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Hier ein kleines Beispiel dazu, wie so etwas programmiertech- 
nisch aussieht: 


move.l #gfxbase,a6 

move.l #rastport,al 

move.l #text,aO 

move.l #textende-taxt,dO 

jsr -54(a6) 

move.l dO,textlänge 

rts 


Grafikbasisadresse 

RastPortadresse (z. B. eigen angelegte) 

Anfangsadresse vom Text 

Länge des Textes 

TextLength () aufrufen 

Textlänge speichern 


text: dc.b "Wie lang ist der Text?" 
textende: 
even 

textlänge: de.I 0 
rastport: blk.b 100,0 


Eine ausführliche Beschreibung jeder Routine würde hier zu weit 
führen. Deshalb folgt eine kurze Beschreibung jeder einzelnen 
Routine. Zudem ist die Kurzbeschrcibung wesentlich 
übersichtlicher als eine in Sätze gefaßte. Anfängen werden wir 
mit der “TextLength ()*-Routine: 


Routine : 

Library 
Offset : 
Parameter: 


Rückgabe : 
Erklärung: 


TextLength (RastPort,String,Count) (Al,A0,D0) 

graphics.1ibrary 
-54 = -S 36 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

AO = Anfangsadresse des Textes. 

DO = Anzahl Buchstaben die der Text besitzt 
in DO = Anzahl Punkte die der Text lang ist. 

Diese Routine gibt in DO die Anzahl Punkte zurück, die 
der Text lang ist. Die Textlänge bezieht sich immer auf 
die aktuelle Zeichenbreite des aktiven Zeichensatzes im 
übergebenen RastPort. 
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Routine : AskSoftSty1e (RastPort) (Al) 

Library : graphics.1ibrary 
Offset -84 = -$54 

Parameter: Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

Rückgabe : in DO = Stylebyte welches den aktuellen Modus des Fonts 
wiederspiegelt. 

Stylenaie: Wert: Bit: Funktion: 

Normal 0 - normal 

Underline 1 0 unterstrichen 

Bold 2 1 fett 

Italic 4 2 kursiv 

8 3 extended 

Erklärung: Diese Routine gibt in DO den Style-Modus zurück, welcher 
gerade aktiv ist. Es sind auch mehrere Styls aufeinmal 
möglich. Man braucht dazu lediglich die einzelnen Werte 
zusammenaddieren. 


Routine : SetSoftStyle (RastPort,Style,Enable) (Al,DO,Dl) 

Library : graphics.1ibrary 
Offset -90 = -$5a 

Parameter: Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

DO = Stylebyte welches den aktuellen Modus des Fonts 
wiederspiegelt. 

Stylenaie: Wert: Bit: Funktion: 

Normal 0 - normal 

Underline 1 0 unterstrichen 

Bold 2 1 fett 

Italic 4 2 kursiv 

8 3 extended 
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Dl = Enthält den Wert, der Auskunft darüber gibt, welche 
Styles überhaupt zugelassen sind. Also die Stylemaske. Am 
besten Sie setzen Dl auf 15. 

Erklärung: Diese Routine setzt den Style-Modus im entsprechenden 
RastPort. Wenn Sie jetzt einen Text in diesem RastPort 
ausgeben, wird dieser entsprechend anders ausgegeben. 


Routine 

Library 

Offset 

Parameter 


Erklärung: 


SetRast (Rastport,Color) (Al,DO) 

graphics. 1ibrary 

-234 = -Sea 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

DO = Farbregisternummer aus dem die Farbe entnommen 
werden soll, fürs Zeichnen von Linien oder ausgeben 
von Texten 

Diese Routine setzt die Punktfarbe im entsprechenden 

RastPort. 


Routine : 

Move (RastPort,X,Y) (Al,DO,Dl) 


Library : 

graphics.1ibrary 


Offset : 

-240 = -SfO 

Al = Zeiger auf RastPort-Struktur 

DO = Position der X-Koordinate 

Dl = Position der Y-Koordinate 


Erklärung: 

Diese Routine setzt die Koordinaten im 

entsprechenden 


RastPort. Ab diesen Positionen wird dann 
die Linie dargestel1t. 

der Text bzw. 
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Routine 

Library 

Offset 

Parameter 


Erklärung: 


SetAPen (RastPort,Pen) (Al,DO) 

graphics. Iibrary 
-342 = -$156 

Al = Zeiger auf RastPort-Struktur 

DO = Farbregisternummer. aus dem die Schriftfarbe ent¬ 
nommen werden sol 1. 

Diese Routine setzt die Schriftfarbe im entsprechenden 
RastPort. 


Routine 

Library 

Offset 

Parameter 


Erklärung: 


SetBPen (RastPort,Pen) (Al,DO) 

graphics. 1 ibrary 
-346 = -S15c 

Al = Zeiger auf RastPort-Struktur 

DO = Farbregisternummer, aus dem die Hintergrundfarbe 
entnommem werden sol1. 

Diese Routine setzt die Hintergrundfarbe für die Text¬ 
ausgabe im entsprechenden RastPort. 


Routine 

Library 

Offset 

Parameter 


SetDrMd (RastPort,DrawMode) (Al,DO) 

graphics.1ibrary 


-354 = -$162 

Al = Zeiger auf RastPort-Struktur 
DO = Zeichenmodus für die Textausgabe: 

Name: Bit: Funktion: 

JAMI - Es wird nur in der Farbe des APens gemalt 

JAM2 0 Es wird mit der Farbe des BPens unterlegt 

Complement 1 Nur gesetzte Punkte werden in Screen aus 
gegeben 

inversvid 2 Text wird invertiert ausgegeben 


Erklärung: Diese Routine setzt den Zeichenmodus für die Textausgabe 
im entsprechenden RastPort. 
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5.5 Laufschriften 

Wer kennt sie nicht, diese sogenannten ‘Intros’ bzw. ‘Demos*, 
welche meist von Crackern oder Programmierer erstellt werden, 
um irgend welche ‘Messages“ unterlegt mit einen super Sound + 
Bild , in der eine Laufschrift abläuft, herüber zu bringen. 

Wie man nun eine solche Laufschrift programmiert, darauf wollen 
wir hier eingehen. Allerdings werden wir hier nur die Program¬ 
mierung einer ganz einfachen Laufschrift beschreiben. 

Als erstes müssen wir uns einmal überlegen, was wir so alles für 
eine Laufschrift benötigen? 

Da ist zunächstmal der Text, den ohne Text keine Laufschrift. Da 
der Text ja von rechts hcrcinscrollcn soll, benötigen wir eine 
Routine die in der Lage ist einen Buchstaben auszugeben. Wir 
verwenden dazu die ‘Text ()*-Routine. Der neu eingefügte Buch¬ 
stabe soll ja immer an der selben Position dargestellt werden. 
Dies erledigt die Routine ‘Move ()‘ welche von uns fcsteingestell- 
te Werte übergeben bekommt. 

Jedoch wie lassen wir nun den Text über den Bildschirm scrollen? 

Selbst dafür stellt uns das System eine Routine zur Verfügung. 
Sie nennt sich “ScrollRaster ()‘. Es folgt die Beschreibung der 
Routine: 


Routine : ScrollRaster (RastPort,DX,DY,MinX,MinY,MaxX,MaxY) (Al,DO 
bis D5) 

Library : graphics.1ibrary 

Offset : -396 = -S16c 

Parameter: Al = Zeiger auf RastPort-Struktur 

DO = Anzahl X-Punkte um die gescrollt werden soll 
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Dl = Anzhal Y-Punkte um die gescrollt werden soll 
D2 = Anfangs X-Koordinate 
D3 = Anfangs Y-Koordinate 
D4 = End X-Koordinate 
D5 = End Y-Koordinate 

Erklärung: Diese Routine scrollt den angegebenen Bereich um die 
entsprechende Anzahl von Punkten 


Wir stellen in den Datenregistern D2 bis D5 den Bereich ein der 
gescrollt werden soll undin DO eine EinsundDl eine Null, für 
Scrolling nach Links um einen Punkt. Jetzt sind wir zwar in der 
Lage, den Text zu scrollen, aber wann erscheint nun der nächste 

Buchstabe? 

Ganz einfach! Wir ermitteln einfach mit der Routine ‘Text- 
Lengthf)“ die Länge des momentanen Zeichens. Dann zählen wir 
einfach eine Variable bis zum ermittelten Wert herauf, wenn die¬ 
ser erreicht ist, printen wir den nächsten Buchstaben und setzen 
die Variable wieder auf Null. 

Jetzt stehen wir allerdings noch vor einem Problem. Denn in der 
momentanen. Version würde jeder neue Buchstabe sofort hinge- 
printet werden. Diesen Effekt kann man bei sehr vielen Program¬ 
men fcststcllcn. Doch wir wollen uns nicht mit so einer primit¬ 
iven Art von Laufschrift abgeben, sondern das Zeiche-n richtig von 
rechts nach links hereinscrollen lassen. 

Da wir unsere Zeichen in einem RastPort darstcllcn und alles was 
nicht innerhalb diesen RastPorts liegt, wird vom System einfach 
abgeschnitten. Diese Tatsache machen wir uns einfach zu nutze 
und printen das aktuelle Zeichen immer an der lctztmöglichcn Po¬ 
sition des RastPort minus der Anzahl von Punkten die schon gesc¬ 
rollt wurden, bis das nächste Zeichen erscheint. 
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Damit der Text auch wieder von Vorne beginnt, fragen wir einfach 
ab, ob das Textende schon erreicht wurde, wenn ja dann lassen 
wir den Textpointcr einfach wieder auf den Anfang des Textes 
zeigen. 

Wenn wir die Laufschrift wie oben beschrieben programmieren 
würden, wäre sie viel zu schnell und würde außerdem noch flak- 
kern. Deswegen lassen wir die Laufschrift im Interrupt ablaufcn. 

Hier nun das ausführlich dokumentierte Bcispiel 1 isting, was eine 
Laufschrift auf dem Screen erzeugt: 


ProgrannnnaiDe = Laufschrift 
erzeugt eine Laufschrift 
rechte Maustaste = Prgende 


Start: 

;- Graphics.1ibrary öffnen 


move.l tfgfxname.al 
clr.1 dO 
move.l 4 ao 
jsr -552(aoI 
move.l dO.gfxbase 


Libraryname 
Version 
Execbase 
OpenLibary 
Basis speichern 


Intuitions.library öffnen 


move.l #intname.al 
cl r. 1 dO 
move.1 4 ,a6 
jsr -552(a6) 
move.l dO,intbase 


Libraryname 
Version 
Execbase 
Openlibrary 
Basis speichern 
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- Screen öffnen 

move.l intbase.a6 
move. I Iscreenargs,a0 
jsr -196(a6l 
move.l dO.screenhd 

- Fen S te r öffnen 

move.l intbase,ao 
move.l twindowargs.aO 
jsr -204(a6) 
move.1 dO, windowhd 


lntuitionbasis 

ScreenArgs-Struktur 

OpenScreen 

Screenadresse speichern 


Intuitionbasis 

WindowArgs-Struktur 

OpenWindow 

Windowadresse speichern 


Rastport-Adresse vom Window ermitteln 


move.l windowhd,al ; Windowadresse 

move.l 50(al),rastport : RasterPort-Adresse vom Window 

: speichern 


.- irq einschalten 

move.l 4,a6 
jsr -132(ao) 
move.l S6c,irqold+2 
move.l #irqnew,S6c 

main: 

btst #10, Sdf f016 
beq exit 
bra main 


: Execbasis 
: Forbid Multitasking 
: alten IRQ speichern 
; neuen IRQ aktivieren 


: rechte Maustaste gedrückt ? 
: wenn ja, dann Ende 
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IRQ wieder entfernen 


exit: 

move.l irqold+2,S6c 
move.l 4,a6 
jsr -138(a6) 


; alten IRQ aktivieren 
; Execbasis 
: Permit Multitasking 


Window wieder schließen 


move.l intbase,a6 
move.l windowhd,aO 
jsr -72(a6l 


; Intuitionbasis 
; Windowadresse 
; CloseWindow 


Screen wieder schließen 


move.l intbase,a6 
move.l screenhd,aO 
jsr -66(a6 I 


; Intuitionbasis 
; Screenadresse 
; CloseScreen 


- Intuition.library wieder schließen — 

move.l intbase,al ; Intbase 

move.l 4,a6 ; Execbasis 

jsr -414(a6) : C1oseLibrary 

—.Graphics.library wieder schließen- 


move.l gfxbase,al 
move.l 4,a6 
jsr -414(a6) 
rts 


: graphiesbase 
; Execbase 
; C1oseLibrary 
; Programmende 
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Neue IRQ-Routine in der die Laufschrift erzeugt wird - 


irqnew: 

movem.l d0-d7/a0-a6,-(sp) 

move.l rastport.al 

move.I #1,d0 

move.l #0,dl 

move.l #0,d2 

move.l #0,d3 

move.w windowargs+4,d4 

move.l #70,d5 

move.l gfxbase,a6 

jsr -396(a6) 

move.l rastport.al 

move.l scrol1 Ziffer,aO 

move. I #1 ,d0 

move.l gf xbase,a6 

jsr -54(a6) 

move.w dO,textlänge 

add.w #1,scrol lbit 
move.w scrolIbit.dO 
emp.w textlänge,dO 

bge next_ziffer 

move.w windowargs+4,d0 
sub.w #1 ,d0 

sub.w scrolIbit.dO 
bra printziffer 

next_ziffer: 

move.w windowargs+4,d0 
sub.w #1 ,d0 


: Register retten 
: RastPort-Adresse vom Window 
; Anzahl x-punkte (= Eins) 

: Anzhal y-punkte (= NulII 
; Anfangs X-Koordinate 
; Anfangs Y-Koor. 

; End X-Koordinate 
: End Y-Koor. 

: Graphics.library 
; Scrol1 Raster 

; RastPort-Adresse vom Window 
: Zeiger auf Text 
: einen Buchstaben 
; graphiesbasis 
; TextLength 

: Zeichenlänge speichern 

: Scrol1 zähl er um eins erhöhen 
; Scrollvariable nach DO 
: Scrol1 variable >= Zeichenbreite 

: Wenn ja, nächstes Zeichen 


: max. x-Position für MOVE-Rou- 
; tine 

: minus Scrollvariable 
; und Zeichen printen 

; nächstes Zeichen printen 

; max. x-position für Move-Rou- 
; tine 
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clr.w scrollbit : Scrol1 variable löschen 

add.l #1,scrol1ziffer ; Textpointer um eins erhöhen 

cmp.l #scrolltextende,scrollziffer : schon Textende erreicht ? 

bne printziffer : wenn nein, dann weiter 

move.l Iscrol1text,scrollziffer : sonst Textpointer auf Textan- 

: fang 


printziffer: 

move.l rastport,al 
move.l #60,dl 
move.l gfxbase,a6 
jsr -240(36! 
move.l rastport,al 
move.l scrollziffer.aO 
move. 1 #1,dO 
move.l gfxbase,a6 
jsr -60(a6) 


: ein Zeichen ausgeben (DO wird oben ermit- 
; telt) 

: Rasterportadresse vom Window 
: Y-Position des Textes, der gescrollt wird 
: graphicsbasis 
; MOVE - Koordinaten setzen 
: Rasterportadresse vom Window 
; Zeiger auf Text, der gescrollt wird.. 

; einen Buchstaben 
: graphicsbasis 

: TEXT - Zeichen auf Screen darstellen 


movem.l Isp)+,d0-d7/a0-a6 : Register zurückholen 

irqo1d: 

jmp irqold : alte IRQ-Routine fortsetzen 


;-Parameter 

screenargs: 
x_pos: dc.w 0 

y_pos: dc.w 0 

width: dc.w 320 

height: dc.w 256 

depth: dc.w 5 

detail_pen: dc.b 1 
b 1 ock_pen: dc.b 0 
view_modes: dc.w 2 
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screen_type:dc.w £ 100 
font: dc.l 0 

title: dc.l 0 

gadgets: dc.l 0 

bitmap: dc.l 0 

windowargs: 

dc.w 50 
dc.w 60 
dc.w 250 
dc.w 70 
de .b 5 

de .b 0 

de. I 0 

dc.l SOdOO 
dc.l 0 
dc.l 0 
de. 1 0 

screenhd: 
de. 1 0 

de. 1 0 

dc.w 50 
dc.w 10 
dc.w 320 
dc.w 256 
dc.w 15 


: Normal = 15 für Title 


textlänge: de.w 0 
rastport: de. 1 0 
windowhd: dc.l 0 
intname: dc.b "intuition. 1ibrary",0 
even 

intbase: dc.l 0 

gfxname: dc.b "graphics.1ibrary" ,0 
even 


137 



5. Kapitel 


Fonts - ZcichcnsStze 


gfxbase: de. 1 0 

scrollbit: dc.w 0 ; Variable für Anzahl Punkte 

scrollziffer: dc.l scrolltext ; Zeiger auf Scrol1 Text 

scrolltext: dc.b "Hallo 1 - Dies ist eine einfache 

dc.b “Sero 11demo! ." 

scrol1 textende: 
even 


Listingende 
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6. Verbindung zur Außenwelt 

In diesem Kapitel werden wir ausnahmsweise auf die Hardware¬ 
programmierung eingehen. Denn es ist einfacher, schneller und 
kürzer die Maus bzw. die Tastatur über die Hardware abzufragen, 
als über das System. Außerdem stellt das System keinerlei Hilfen 
zur Joystickprogrammierung zur Verfügung. 


6.1 Joystick und Maus 

Die Hardware des Amiga stellt uns für die Gameports zwei Regi¬ 
ster zur Verfügung, in denen sich die Gameportsignale wieders- 
piegeln. Es sind wie alle Register im Amiga 16-Bit-Register, also 
ein Word groß. Das Register für Gameport 0 liegt bei der Adresse 
SDFFOOA (JoyODat) und für Gameport 1 bei Adresse SDFFOOC 
(Joyl Dat). 

Beide besitzen die selbe Bitbclcgung und sind nur Lcsc-Rcgistcr: 

Bit-Nr.: 15 H 1 3 1 2 11 10 09 06 07 06 05 04 03 02 01 00 
Funktion: Y7 Y6 Y5 Y4 Y3 Y2 Yl Y0 X7 X6 X5 X4 X3 X2 XI X0 

YO bis Y7 = Y-Zähler (Vertikale Mausdifferenz) 

XO bis X7 = X-Zähler (Horizontale Mausdifferenz) 

Sic werden sich sicherlich fragen, was diese Register mit der 
Mausdifferenz zu schaffen haben? Dies liegt daran, das die Maus 
und der Joystick über das selbe Register abgefragt werden. In die¬ 
sen Register spiegelt sich immer die Anzahl Punkte wieder um die 
die Maus bewegt worden ist. Deswegen muß die Maus immer in 
bestimmten Zeitabständen abgefragt werden (z. B. im Interrupt). 
Man vergleicht dann denn alten Zählerstand, welchen man vorher 
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zwischcngcspcichcrt hat, mit dem neuen und die Differenz daraus 
sind die Anzahl Punkte um die die Maus bewegt worden ist. 

Um jetzt den Joystick abzufragen, müßte man das genaugenom¬ 
men kompliziert über bestimmte Bitverknüpfungen bewerkstelli¬ 
gen. Doch zum Glück exestiert da noch eine zweite Möglichkeit, 
die erheblich einfacher ist und zudem alle möglichen Kombina¬ 
tionen (einschließlich Feuerknopf) umfaßt. 

Wenn wir den Joystick in eine Richtung drücken, enthält das ent¬ 
sprechende Portregister einen bestimmten Wert. Wenn man sich 
die max. 8 möglichen Werte notiert hat, braucht man diese nur 
mit dem Portregister zu vergleichen. Wenn man allerdings den 
Joystick so Richtig umrührt, entstehen ab und zu ganz andere 
Werte als Vorher und die Joystickabfragung würde nicht mehr 
funktionieren. Damit das nicht cintrctcn kann setzen wir zu Be¬ 
ginn jeder Joystickabfragung das JOYTEST-Registcr, welches bei 
Adresse SDFF036 liegt auf Null. Der Wert den wir hier eintragen 
wird nähmlieh in die Portregister übertragen. 

Bevor wir jetzt alle möglichen Kombinationen des Joysticks pro¬ 
grammieren können, fehlt uns noch das Wissen über die Abfra- 
gung der Maus bzw. Feuer-Tasten. 

Abtragung der Maus/Fcucr-Tastcn: 


rechte 

(PortOl: 

Loop: BTST #10,SDFF016 
BNE Loop 

linke 1 

I PortO) 


und Feuerknopf: 

Loop: BTST #6,SBFE001 
BNE Loop 

rechte 

I Porti): 

Loop: BTST #14,SDFF016 
BNE Loop 

linke 1 

Porti) 
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und Feuerknopf: Loop: AND.B #126,SBFE001 

BNE Loop 


Hier nun ein Beispiellisting welches die Joystickprogrammierung 
demonstriert. Wenn Sie die Routine in Ihren Programmen erset¬ 
zen, sollten Sie alle überflüssigen Abfragungen entfernen, um ein 
einwandfreies Ablaufen zu garantieren. 

;.-. Joystickabfrage (Port 1) als Unterroutine . 


Port2: 

move.w #0,$dff036 ; GamePortsignale auf Null (Sehr Wichtig!!!) 

move.w SdffOOc.dO ; Wert von GamePortl nach DO 

; .oder 5DFF0ÜA für Gaieport 0- 


emp.w #50100,dO 
beq P2_oben 

; Oben 

emp.w #50001,d0 
beq P2_unten 

; Unten 

emp.w #50003,dO 
beq P2_rechts 

: Rechts 

emp.w #50300,dO 
beq P2_links 

; Links 

emp.w #50103,dO 
beq P2_oben_rechts 

; Oben/Rechts 

emp.w #50002,dO 
beq P2_unten_rechts 

: Unten/Rechts 

emp.w #50301 ,d0 
beq P2_unten_links 

: Unten/Links 

emp.w #50200,dO 
beq P2_oben_links 

; Oben/links 

and.b #128,SbfeOOl 
beq P2_fire 
rts 

; Fi re 
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P2_rechts: 

and.b #126,SbfeOOl 
beq P2_fire_rechts 

;.Ab hier Routine für Rechts. 

rts 

P2_links: 

and.b #126,Sbf eOOl 
beq P2_firejinks 

.Ab hier Routine für Links- 

rts 

P2_oben: 

and.b #126,$bfe001 
beq P2_fire_oben 

:.Ab hier Routine für Oben.- 

rts 

P2_oben_rechts: 

and.b #126,Sbf eOOl 
beq P2_fire_oben_rechts 

;.Ab hier Routine für Oben/Rechts 

rts 

P2_unten_rechts: 

and.b #126,Sbf eOOl 
beq P2_fire_unten_rechts 

;.Ab hier Routine für Unten/Rechts 

rts 

P2_unten_links: 

and.b #126,Sbf eOOl 
beq P2_fire_unten_1inks 

:.Ab hier Routine für Unten/Links 

rts 
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P2_oben_links: 

and .b #126,SbfeOOl 
beq P2_fire_oben_links 

:.. Ab hier Routine für Oben/Links . 

rts 

P2_unten: 

and.b #126, SbfeOOl 
beq P2_fire_unten 

;.Ab hier Routine für Unten. 

rts 

P2_fire: 

;.Ab hier Routine für Fire - 

rts 

P2_fire.rechts: 

:. Ab hier Routine für Fire/Rechts- 

rts 

P2_firejinks: 

:.Ab hier Routine für Fire/Links. 

rts 

P2_fire.oben: 

;. Ab hier Routine für Fire/Oben. 

rts 

P2_fire.unten: 

:- Ab hier Routine für Fire/Unten- 

rts 

P2_fire_oben_rechts: 

;. Ab hier Routine für Fire/Oben/Rechts 

rts 
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P2_fire_unten_rechts: 

:. Ab hier Routine für Fire/Unten/Rechts 

rts 

P2_firejjntenJinks: 

:..Ab hier Routine für Fire/Unten/Links 

rts 

P2_fire_oben_links: 

;- Ab hier Routine für Fire/Oben/Links - 

rts 


6.2 Tastatur 

Für die Tastaturabfrage gibt cs im Amiga auch ein Register. Es 
liegt bei der Adresse SBFECOl und enthält immer den gerade ak¬ 
tuellen Tastencode. Die Tastcneodes stimmen aber nicht mit den 
ASClI-Codes, wie sie im Basic-Handbuch stehen überein. Die fol¬ 
gende Tabelle gibt Auskunft über die Tastcneodes mit der dazuge¬ 
hörigen Tastaturbelcgung: 

Tastaturabfragc: (Register $BFEC01) 


Wert: 

Taste: 

Wert: 

Taste: 

Wert: Taste: 

BF 

A 

EB/El 

Null 

7D Pfeil-Links 

95 

B 

FD/C5 

Eins 

73 Del 

99 

C 

FB/C3 

Zwei 

7B Tabulator 

BB 

D 

F9/C1 

Drei 

FF 

DB 

E 

F7/A5 

Vier 

3B Caps-Lock 

B9 

F 

F5/A3 

Fünf 

3F Shift links 

B7 

G 

F3/A1 

Sechs 

3D Shift rechts 

B5 

H 

Fl/85 

Sieben 

39 Control 
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Dl 

1 

EF/83 

Acht 

37 

Alt links 

B3 

J 

ED/81 

Neun 

35 

Alt rechts 

Bl 

K 

67 

Cursor up 

33 

Amiga links 

AF 

L 

65 

Cursor down 

31 

Amiga rechts 

91 

M 

61 

Cursor left 

8B 

minus 

93 

N 

63 

Cursor right 

8D 

Punkt 

CF 

0 

5F 

Fl 

8F 

koinina 

CD 

P 

5D 

F2 

A9 

doppel Kreuz 

DF 

Q 

5B 

F3 

C9 

plus 

D9 

R 

59 

F4 

CB 


BD 

S 

57 

F5 

AD 


D7 

T 

55 

F6 

AB 

- 

D3 

U 

53 

F7 

E9 

ß 

97 

V 

51 

F8 

E5 

\ 

DD 

W 

4F 

F9 

9F 

< 

9B 

X 

4D 

F10 

77/79 

Return/Entcr 

9D 

Y 

7F 

Space 

41 

Help 

D5 

Z 

75 

ESC 




Wenn man vom Tasten-Code eins subtrahiert, erhält man den Co¬ 
de für die losgelassene Taste. Das Beispiel Programm zeigt, wie 
man das "A" abfragt: 


Loop: emp.b #SBF.SBFEC01 
bne Loop 


Wurde Taste A gedrückt ? 
wenn nicht, dann weiter abfragen 
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7. Simple Sprites 

Der Amiga bietet zwei Möglichkeiten, Simple Sprites darzustel¬ 
len. Entweder programmiert man sie direkt ber die Hardware, was 
jedoch viel zu kompliziert und aufwendig ist oder man benutzt 
die Spriteroutinen, die die graphics.library des Betriebsystems zur 
Verfügung stellt. Mit Hilfe dieser Routinen ist es wirklich "sim¬ 
ple" ein Sprite auf dem Bildschirm darzustellen und zu manipu¬ 
lieren. Doch bevor wir auf die Programmierung der Routinen cin- 
gehen, erst noch ein paar allgemeine Informationen zum Aufbau 
der selben. 


7.1 Aufbau von Sprites 

Es können maximal acht Sprites dargcstcllt werden, denen eine 
Nummer von Null bis Sieben zugetcilt wird, jedoch Sprite Null 
schon für den Mauszeiger reserviert ist. 

Die Breite eines Sprites darf höhstens 16 Punkte betragen, aber 
die Höhe hingegen ist beliebig wählbar. 

Sprites werden immer in der kleinsten Auflösung dargestellt, also 
320 X 256 Pixel Lo-Rcs. Sie können aber in jedem Modus benutzt 
werden. Koordinaten außerhalb diesen Bereiches veranlassen das 
Sprite den sichtbaren Bildschirmbereich zu verlassen. 

Ein Sprite kann maximal in vier Farben dargestcllt werden, wobei 
sich jedoch immer zwei Spritepaare vier Farbregister teilen 
müssen. Von den 32 Farbregistern des Amiga werden die Register 
16 bis 31 für die Sprites verwendet (siche Tabelle). 
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Die Form eines Sprites wird Zeilenweise beschrieben, wobei jede 
Zeile durch zwei Worte (je 16 Bit) dargcstcllt wird. Jedes Bit des 
ersten Wortes (High-Word) bestimmt mit dem entsprechenden Bit 
des zweiten Wortes (Low-Word) die Farbe eines Punktes, also das 
Farbregister, auf welches zugegriffen wird. 

Hierein Beispiel zur Beschreibung einer Spritczcilc: 

High-Word Low-Word 

1100000000000000 1010000000000000 


Punkt 1 
Punkt 2 
Punkt 3 
Pun kt 4 - 16 


Bitpaar = 11 
Bitpaar = 10 
Bitpaar = 01 
Bitpaar = 00 


Wir sind wie oben beschrieben vorgegangen. Das erste Bit des er¬ 
sten Wortes zusammen mit dem ersten Bit des zweiten Wortes er¬ 
gibt für Punkt 1 das Bitpaar 11. Und so geht man alle 16 Punkte 
einer Zeile durch. Nach dem 16 Bit des zweiten Wortes (Low- 
Word) folgt dann das erste Word (High-Word) der nächsten Zeile 
wo sich dann die Farbe wie eben beschrieben wieder errechnet. 


An diesem Beispiel wird auch ersichtlich, warum nur vier Farben 
zur Verfügung stehen. Mit zwei Bits (High and Low) lassen sich 
halt nur Werte von Null bis Drei darstellen. 

Die folgende Tabelle gibt aufschluß darüber, welche Farbregister, 
bei welchen Bitpaaren für die Farben der jeweiligen Spritenum- 
mern herangezogen werden: 

Spritc-Nr. Bitpaar Farbrcgistcmummcr 


0 und 1 

00 

16 


01 

17 


10 

18 


11 

19 
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2 und 3 

00 

20 


01 

21 


10 

22 


11 

23 

4 und 5 

00 

24 


01 

25 


10 

26 


11 

27 

6 und 7 

00 

28 


01 

29 


10 

30 


11 

31 


Die beiden Words der ersten Spritezeile werden nicht zur Farber- 
mittlung herangezogen, sondern werden als Control-Words be¬ 
zeichnet. Die beiden Control-Words enthalten Höhe und Position 
des Sprites. Um diese Control-Words brauchen wir uns allerdings 
nicht zu kümmern, dies erledigen später die Sprite-Routinen des 
Systems für uns. 


7.2 Attached-Sprites 

Wenn man im zweiten Sprite-Control-Word das Bit 7 auf Eins 
setzt, dann werden zwei Sprites zu einem Attached-Spritc zusam¬ 
mengefaßt. Hierbei können folgende Sprites kombiniert werden: 

Sprite 1 mit Sprite 0 
Sprite 3 mit Sprite 2 
Sprite 5 mit Sprite 4 
Sprite 7 mit Sprite 6 
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Die Sprites müssen allerdings die gleiche Größe, Form und Positi¬ 
on haben. 

Der Vorteil von einem Attached-Sprite ist, daß nunmehr 16 Farben 
für ein Sprite zur Verfügung stehen (Farbregister 16 bis 31). Je¬ 
doch sind auch diese Sprites weiterhin nur 16 Pixel breit. 

Durch Kombination der Spritezeile des einen Sprites mit der Spri- 
tezeile des anderen Sprites, erhält man für jeden Punkt eine 4- 
Bitzahl, also einen Wert von 0 bis 15, die die Farbregister 16 bis 
31 anwählt. 

Hier ein Beispiel zur Beschreibung einer Attached-Spritezcile: 
(Sprite 1 kombiniert mit Sprite 0) 

Sprite 1-HighWord : 00(X)0(X)()00000000 
Sprite 1-LowWord : 1 (X)0(X)0000000000 
SpriteO-HighWord : 1000000000000000 
SpriteO-LowWord : 1000000000000000 

Punkt 1 : Bitkombination = 0111 

Punkt 2-16 : Bitkombination = 0000 

Die Bitpaare werden hier genauso errechnet wie bei einfachen 
Sprites, mit dem Unterschied daß man hier vier Words für eine 
Spritezeile hat, statt zwei. 

Folgende Farbregister werden somit zugewiesen: 

Bitkombination Farbregistemummcr 


0000 

16 

0001 

17 

0010 

18 

0011 

19 

0100 

20 
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0101 

21 

0110 

22 

0111 

23 

1000 

24 

1001 

25 

1010 

26 

1011 

27 

1100 

28 

1101 

29 

1110 

30 

1111 

31 


7.3 Simple-Sprite-Routinen 

Bevor wir nun ein Simple-Sprite auf dem Bildschirm erscheinen 
lassen können, müssen wir zunächst uns einen vom System zu¬ 
weisen lassen. Für diesen Zweck stellt uns die graphics.library die 
Routine "GetSprite ()" zur Verfügung. Dieser übergeben wir die 
Spritenummer des gewünschten Sprites (von 0 bis 7), dabei nicht 
vergessen, das Sprite 0 für den Mauspointer reserviert ist. Außer¬ 
dem wird in AO noch die Anfangsadresse einer SimpleSprite- 
Struktur verlangt. Denn woher soll das System wissen, ab welcher 
Adresse die Spritedaten beginnen, wie Breit es ist oder welche Po¬ 
sition es besitzt. Diese Informationen sind alle in der SimplcSpri- 
te-Struktur enthalten. Dabei zeigt das erste LongWord auf die 
Spritedaten, welche mit den beiden ControllWords beginnen und 
am Ende der Spritedaten mit zwei Null-Words enden. 

dc.l spritedatas : Zeiger auf Spritedaten 
Danach folgt ein Word, das die Höhe des Sprites enthält. 

de.w spritehöhe 
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Die nächsten zwei Words enthalten die Position des Sprites. Zu¬ 
erst die horizontale (X-Richtung), dann die vertikale (Y-Rich- 
tung) Position. 

de,w X-Position 
de,w Y-Position 

Das letzte Word enthält die Spritenummer, welche diesem Sprite 
zugctcilt wurde. 

de.w spritenummer 

Hier die ganze SimplcSpritc-Struktur nochmal im Zusammenhang: 

SimplcSpritc-Struktur: (Länge = 12 Bytes) 


Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Long 

Datas 

Zeiger auf Spritedaten 

004 

Word 

Höhe 

Höhe des Sprites 

006 

Word 

X 

X-Position des Sprites 

008 

Word 

Y 

Y-Position des Sprites 

010 

Word 

Nummer 

Nummer des Sprites (0 bis 7) 

012 


END 

Ende der SimplcSpritc-Struktur 


Hier noch ein Beispiel für eine vollständige SimplcSpritc-Struk¬ 
tur: 


dc.l spritedatas 
de.w 3 
de .w 100 
de .w 60 
de. w 1 


: Zeiger auf Spritedaten 
Höhe = 3 Zeilen 
X-Position = 100 
Y-Position = 60 
Spritenummer = 1 
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spritedatas: 

de.w 0,0 
dc.w Sffff.Sffff 
dc.w $0013,32341 
de.w $1 234,$fffO 
dc.w 0.0 


; beiden Control lWords 
: erste Zeile 
; zweite Zeile 
; dritte Zeile 
; End of Datas 


Nachdem wir die Routine "GetSprite ()" aufgerufen haben, erhal¬ 
ten wir in DO die Spritenummer zurück, welche wir vorher 
übergeben haben. Konnte jedoch der Sprite nicht zugewiesen 
werden, wird in DO eine -1 zurückgegeben. Falls dies eintritt, 
sollten sie diesen Sprite erst wieder freigeben, bevor sie sich die¬ 
sen mit “GetSprite ()' zuweisen lassen. 

Das Freigeben von Sprites erledigt die Routine "FreeSprite ()" für 
uns. Ihr brauchen wir nur die gewünschte Spritenummer zu 
übergeben und der Sprite wird zur weiteren Verwendung freigege¬ 
ben. 


Ein kleiner Tip: 

Bevor sie sich einen Sprite mit "GetSprite ()" zuweisen lassen, 
sollten sie immer diesen mit "FreeSprite ()" freigeben. 

Jetzt haben wir uns zwar einen Sprite zuweisen lassen, jedoch er¬ 
scheint dieser noch nicht auf dem Bildschirm. Denn bevor dies 
geschehen kann, müssen die Parameter, welche in der SimpleSpri- 
te-Struktur enthalten sind, in die entsprechenden Hardware-Regi¬ 
ster kopiert werden. Diese Register wiederum, sind in der Copper¬ 
liste enthalten, damit sie ständig mit den selben Werten geladen 
werden. Die Adresse der Copperliste finden wir in der ViewPort- 
Struktur. Die Routine "ChangeSprite ()" erledigt all diese Aufga¬ 
ben und läßt den Sprite auf dem Bildschirm erscheinen. Dazu be¬ 
nötigt sie die SimpleSprite-Struktur des gewünschten Sprites, die 
Adresse des ViewPorts und die Adresse der Spritedatas. 
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Haben sie vor Sprites nicht nur darzustellen sondern auch zu be¬ 
wegen? 

Dazu laden sie die Datenregister DO und Dl mit den gewünschten 
Positionen. Da dies alleine natürlich nicht genügt, denn die Cop¬ 
perliste muß noch mit den neuen Werten geladen werden, 
benötigen wir wieder die ViewPort-Adresse. Damit das System 
weiß, welcher Sprite bewegt werden soll, wird noch die Adresse 
der SimpleSprite-Struktur vom entsprechenden Sprite übergeben. 
Nun können wir die Routine "MovcSpritc ()" aufrufen, die unse¬ 
ren Sprite an den neuen Koordinaten erscheinen läßt. 

Es folgt eine kurze Beschreibung der eben beschriebenen vier 
Sprite-Routinen: 


Routine : FreeSprite (Nuiier) (DO) 

Library : graphics.1ibrary 

Offset : -414 = -S19e 

Parameter : DO = Spritenummer (von 0 bis 71 

Rückgabe : keine 

Erklärung : Diese Routine gibt ein reserviertes Sprite vom System 
wieder frei. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


: GetSprite (Si*pleSprite,NUMer) (AO,DO) 

: graphics.1ibrary 
: -408 = -S198 

: AO = Zeiger auf SimpleSprite-Struktur des Sprites 
DO = Spritenummer (von 0 bis 7) 

: DO = Spritenummer welcher vorher übergeben wurde 
= -1 für Sprite konnte nicht reserviert werden 
: Diese Routine reserviert einen Sprite, welcher dann ma- 
nipuliert werden kann. 
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Routine : ChangeSprite (viewPort,SimpleSprite,Data) (A0,Al,A2) 

Library : graphics.1ibrary 

Offset : -420 = -Sla4 

Parameter : A0 = Zeiger auf Viewport in dem der Sprite dargestellt 
werden sol1. 

Al = Zeiger auf SimpleSprite-Struktur des Sprites 
A2 = Zeiger auf Spritedatas (Adresse steht in der Sim- 
ple-Sprite-Struktur) 

Rückgabe : keine 

Erklärung : Diese Routine aktiviert einen Sprite auf dem Bildschirm. 


Routine 

Library 

Offset 

Parameter 


Rückgabe 

Erklärung 


MoveSprite (ViewPort,SimpleSprite,X,Y) (A0,Al,DO,Dl) 

graphics.Iibrary 
-426 = -Slaa 

A0 = Zeiger auf Viewport in dem der Sprite dargestellt 
werden solI. 

Al = Zeiger auf SimpleSprite-Struktur des Sprites 
DO = X-Position an der der Sprite erscheinen soll 
Dl = Y-Position an der der Sprite erscheinen soll 
keine 

Diese Routine laßt den Sprite auf die angegebenen Koor¬ 
dinaten erscheinen. 


Wenn man eine ViewPort-Struktur benutzt, muß im eigenem 
Scrccn das "Spritc-Flag" in "VicwModes" bei der Screen-Struktur 
gesetzt werden. 

Zum Schluß des Kapitels noch ein Beispielprogramm, was Sim- 
plc-Sprites erzeugt und animiert! 
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- Programmname = SimpleSprite - 

Animiert ein SimpleSprite und wechselt 

- dabei das Aussehen - 

—- wartet auf rechte Maustaste - 


exeebase = 4 
openlibrary = -552 
closelibrary = -414 

getsprite = -406 
freesprite = -414 
changesprite = -420 
movesprite = -426 


Start: 

;- graphics.library öffnen 


move.I exeebase,a6 
move.l Igfxname.al 
clr.1 dO 

jsr openlibrary(a6) 
move.I dO,gfxbase 


Execbasisadresse in a6 laden 
Zeiger auf Librarynamen 
Version 0 
Library öffnen 

Grafik-Basisadresse in gfxbase 
speichern 


Sprite 1 freigeben 


move.1 #1,d0 
move.l gfxbase,a6 
jsr freespritelaö) 


Spritenummer = 1 
Grafikbasisadresse in a6 laden 
Sprite 1 freigeben 


Sprite 1 reservieren 


Spritenummer = 1 

Zeiger auf SimpleSprite-Struk- 

tur in aO 


move .1 #1, dO 

move.l Isimplesprite.aO 
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move.l gfxbase,a6 ; Grafikbasisadresse in a6 laden 

jsr getsprite(a6) : Sprite 1 reservieren 


Sprite 1 auf Bildschiri« aktivieren 


move.l #0,a0 

move.l #simplesprite,al 

move.l #spritedatas,a2 
move.l gf xbase, a6 
jsr changesprite(a6) 


keine bestimmte Viewport-Struktur 
Zeiger auf SimpleSprite-Struktur in 
al 

Zeiger auf Spritedatas in a2 
Grafikbasisadresse in a6 laden 
Sprite 1 auf Screen aktivieren 


Auf rechte Mousetaste in Port 1 warten und Sprite animieren 


na in: 

btst #10,$dff016 
beq ende 
jsr animat 
bra main 


rechte Maustaste 
gedrückt ? 

wenn nicht, dann sprite 1 animieren 
das ganze wieder von vorne 


Sprite 1 aniiieren und Iläget Aussehen) wechseln 


aniiat: 

add.1 II.starten 
move.l speed,dO 
cmp.l starten,dO 
beq animatl 
rts 


Speicherstellel.il um eins erhöhen 
Spritegeschwindigkeit in DO laden 
Wenn starten = speed dann 
muß Sprite 1 bewegt werden 
sonst keine Bewegung 


aninatl: 

clr.l starten 

emp.w II,richtung 
bne links 
emp.w 1304,xpos 
bne nein 


Speicherstelle starten wieder auf 
Null setzen 

Bewegt sich sprite 1 nach rechts? 
oder nach 1 inks? 

Sprite 1 schon bei x-position 304 
Nein ? 
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sub.w #1 ,xpos 
move.w #0,richtung 

move.l #newspritedatas,a2 
jsr changeimage 
jsr bewegen 
rts 

nein: 

add.w #1,xpos 
jsr bewegen 
rts 

1inks: 

emp.w #0,xpos 
bne neinl 
add.w #1,xpos 
move.w #1,richtung 

move.l #spritedatas,a2 
jsr changeimage 
jsr bewegen 
rts 

neinl: 

sub.w #1,xpos 
jsr bewegen 
rts 


; Sprite 1 um einen Punkt nach links 
; Sprite 1 muß sich jetzt nach links 
; bewegen 

; Zeiger auf neues Sprite-Image 
; von Sprite 1 das Image wechseln 
; Sprite 1 auf neue Koordinaten setzen 


; Sprite 1 um einen Punkt nach rechts 
; Sprite 1 auf neue Koordinaten setzen 


: Sprite eins schon bei x-position 0 
: Nein ? 

; Sprite 1 um einen Punkt nach rechts 
; Sprite 1 muß sich jetzt nach rechts 
; bewegen 

; Zeiger auf altes Sprite-Image 
: von Sprite 1 das Image wechseln 
: Sprite 1 auf neue Koordinaten setzen 


; Sprite 1 um einen Punkt nach links 
: Sprite 1 auf neue Koordinaten setzen 


Sprite 1 auf neue Koordinaten setzen 


bewegen: 

move.l #0,a0 
move.l #simplesprite,a 1 
move.w xpos.dO 
move.w #125,dl 


; Keine eigene Viewport-Struktur 
; Zeiger auf SimpleSprite-Struktur 
: neue x-position in DO laden 
: y-position = 125 in Dl laden 
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move.l gfxbase.aö : Grafikbasisadresse in a6 laden 

jsr movesprite(a6) : Sprite auf neue Koordinaten setzen 

rts 


Image von Sprite 1 wechseln 


changeimage: 

move.l 10,aO 

move.l #simplesprite,al 

move.l gfxbase,a6 
jsr changesprite(a6) 
rts 


keine eigene Viewport-Struktur 
Zeiger auf SimpleSprite-Struktur von 
Sprite 1 

Grafikbasisadresse in a6 laden 
Sprite Image wechseln 


Sprite 1 wieder freigeben 


ende: 

move.l #1,dO 
move.l gfxbase.aö 
jsr freesprite(a6) 


Spritenummer = 1 
Grafikbasisadresse in a6 laden 
Sprite 1 wieder freigeben 


graphics.library schließen 


Grafikbasisadresse in al laden 
Execbasisadresse in a6 
Grafiklibrary schließen 
Ende 

Parameter - 


move . i gi XDase ,a 
move.l execbase.aö 
jsr closelibrary1a6) 
rts 


gfxname: dc.b "graphics.1ibrary",0 
even 

gfxbase: dc.l 0 
speed: dc.l 300 
richtung: dc.w 0 
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xpos: dc.w 0 : x-position f n r Sprite 1 

starten: dc.l 0 : Vergleichswert für Speed 

simplesprite: 

dc.l spritedatas 
de .w 6 

de.w 160,125 
dc.w 1 

spritedatas: 

dc.w 0.0 ; SpriteControlwords auf Null setzen 

dc.w ^0000000001 1001 1 0,*0000000000100100 :H I GH + LOWword zeile 1 

dc.w "tOOOOOOOOl 1001 100, %0000000001001000 :HIGH + LOWword zeile 2 

dc.w ^0001000110011000,%0000100010010000 ... 

dc.w *1100101100110000,*1100100100100000 ;... 

dc.w %0110011011000000.%0110001010000000 :... 

dc.w *001 11 1 011 0000000,*001 1 1 10100000000 :HIGH + LOWword zeile 6 

dc.w 0,0 :End of Datas 

nevspritedatas: 

dc.w 0,0 ; Spr i teContro 1 words auf Null setzen 

dc.w %0001111000111111,%0001100000110101 ;HIGH + LOWword zeile 1 

dc.w V0011001100111111,%0010000000011010 ;HIGH + LOWword zeile 2 

dc.w *0011100000001100,*0001000000001100 ;... 

dc.w *00001 11000001100,^0000101000001 100 :... 

dc.w *0110001100001100,%0110001000001100 ;... 

dc.w *001111 1000001100,^001 1111 000001000 ;HIGH + LOWword zeile 6 

dc.w 0,0 ;End of Datas 

:. Ende des Listings .. 


Zeiger auf Spritedatas 
höhe = 6 punkte 
x- und y-position 
spritenummer = 1 
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8. Das Animationssystem 

Jetzt endlich kommen wir wohl auf den Abschnitt des Buches, auf 
den Sie bestimmt schon lange gewartet haben. Denn was wäre der 
Amiga ohne seine bewegten Grafiken, wie sie so toll in Spielen 
anzusehen sind. 

Doch bevor wir ins "Eingemachte" gehen, noch ein paar allge¬ 
meine Informationen zum Grafiksystem des Amiga. 

Das Animationssystem, auch GEL-System genannt, verwaltet 
VSpritcs (V für Virtual = Schein), BOBs (Blittcr Objekte) und 
AnimBOBs (Animierte Blitter Objekte). Das GEL-System steuert 
also die gesammten Grafikoperationen. 

Das der Amiga so schnell Grafiken Darstellen und Bewegen kann, 
liegt daran, daß es dafür speziell einen Chip gibt. Dieser Chip 
nennt sich Blitter. Mit ihm ist es möglich unwahrscheinlich 
schnellen Datentransfer vorzunehmen. Er ist in der Lage eine Flä¬ 
che von 16 Million Punkten in einer Sekunde zu füllen. Zusätz¬ 
lich kann der Blitter auch noch Linien ziehen. Das Betriebsystem 
verwendet den Blitter beinahe für alle Grafikoperationen. Wie 
zum Beispiel die Textausgabe, Verschiebung von Fenstern, Dar¬ 
stellung von Menüs etc. 

Allerdings ist die Programmierung des Blitters ziemlich schwer. 
Deswegen stellt uns das System entsprechende Routinen zur 
Verfügung, mit denen es ein leichtes ist, Grafiken erscheinen zu 
lassen. 
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8.1 VSprites 

VSprites sind Objekte, die maximal 16 Punkte breit aber beliebig 
hoch sein können. Entsprechen dem Aufbau von Hardware-Sprites. 
Jedoch können von den VSprites, im Gegensatz zu den Hardware- 
Sprites, beliebig viele dargestellt werden. 

Sic werden sich jetzt bestimmt fragen, wie es möglich ist, mehr 
als acht Sprites darzustcllcn. Denn schließlich liefert die Hardwa¬ 
re nur für acht Sprites Register. Der Trick dabei ist, das mit Hilfe 
des Coppers die Spriteregister eines Sprites an einer späteren Ra- 
stcrstrahlposition wieder mit neuen Werten geladen werden. Des¬ 
wegen muß zwischen jedem VSprite mit gleicher Nummer minde¬ 
stens eine Rastcrstrahlposition Freiraum sein. Somit sind wieder 
nur maximal 8 VSprites nebeneinander möglich. 

Bevor wir jedoch ein VSprite darstcllcn können, muß crstmal das 
GEL-System initialisiert sein. Dazu müssen wir eine GELslnfo- 
Struktur anlegen und mit der Routine "InitGels ()" mit den ent¬ 
sprechenden Startwerten füllen. 

Hier nun eine Beschreibung der GELsInfo-Struktur und der Routi¬ 
ne "InitGELs ()": 

‘GclsInfo‘-Struktur: (Länge = 38 Bytes) 

“InitGels ()“ füllt diese Struktur mit den wichtigsten Werten! 


Offset 

Typ 

000 

Byte 

001 

Byte 

002 

Long 


Bezeichnung 

SprRsrvd 

Flags 

GelHead 


Beschreibung 

welche Sprites 
nutzt werden 
System-Flag 
Zeiger auf 
tc'-Stru ktur 


als VSprites ge- 
erste “VSpri- 
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006 

Long 

GelTail 

010 

Long 

NextLine 

014 

Long 

LastColor 

018 

Long 

CollHandler 

022 

Word 

Lcftmost 

024 

Word 

Rightmost 

026 

Word 

Topmost 

028 

Word 

bot tommost 

030 

034 

038 

Long 

Long 

FirstBlissObj 

LastBlissObj 

END 


Zeiger auf letzte ‘VSpri- 
te“-Struktur 

Zeiger auf Puffer mit 8 Words 
(nur bei VSprites) 

Zeiger auf Puffer mit 8 Longs 
(nur bei VSprites) 

Zeiger auf Puffer mit 16 Longs 

(Adressen der 16 verschiedenen 

Collisionsroutinen) 

linker Begrenzungsrand (für 

Collisions-Routine 0) 

rechter Begrenzungsrand (für 

Collisions-Routine 0) 

oberer Begrenzungsrand (für 

Collisions-Routine 0) 

unterer Begrenzungsrand (für 

Collisions-Routine 0) 

wird nur vom System benutzt 

wird nur vom System benutzt 

Ende der ‘Gelslnfo'-Struktur 


‘SprRsrvd*, ‘NextLine“, ‘LastColor*, “CollHandler“ und der Be¬ 
grenzungsrand müss D en, wenn gewünscht, selbst von einem einge¬ 
tragen werden! 


Routine : InitGels (Ge1Head,Ge 1 Tai1,GelsInfo) (A0,Al,A2) 

Library graphics.1ibrary 

Offset -120 = -$78 

Parameter: AO = Zeiger auf einen Puffer mit 58 Null-Bytes 


Al = Zeiger auf einen Puffer mit 58 Null-Bytes 

A2 = Zeiger auf angelete 'Gelslnfo'-Struktur 

Rückgabe : keine 

Erklärung: Diese Routine initialisiert das Gelsystem. Die 'Gelsln- 
fo'- Struktur braucht dann nur noch mit der 'Rast- 
Port ' -Struktur verbunden werden (Offset 201! 
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Jetzt muß die Gelslnfo-Struktur, wie oben schon erwähnt, in die 
RastPort- Struktur eingetragen werden, in welchem die ganzen 
VSpritcs erscheinen sollen. Dazu tragen Sic einfach die Anfang¬ 
sadresse der GELsInfo-Struktur in die Rastportstruktur bei Offset 
20 (Gclslnfo) ein. 

z. B. move.l #ge 1 sir.fo,rastport+20 ; wenn beide Strukturen selbst 

angelegt wurden 

oder 

move.l rastport,aO ; wenn RastPort-Struktur indirekt 

move.l #gelsinfo,20(a0) ; erzeugt wurde 

Welche Sprites für die VSprites zur Verfügung stehen, bestimmen 
Sie in der Variablen ‘SprRsvrd* (Gelslnfo-Struktur = Offset 0). Je¬ 
des Bit, welches hier gesetzt wird, kennzeichnet das VSprite, mit 
dazugehöriger Nummer, als reserviert. Dabei steht Bit 0 für VSpri- 
tc 0 usw. Auch hier, wie bei den Simplc-Spritcs, ist zu beachten, 
daß das Sprite 0 für den Mauszeiger reserviert ist und deswegen 
muß Bit 0 immer auf Null stehen. Am besten setzen Sie 
“SprRsrvd“ auf den Wert $FE (= 254). 


8.2 VSprite-Struktur im Detail 

Doch wie initialisiert man die VSprites? Genau wie für die Sim- 
ple-Sprites eine Struktur exestiert, exestiert auch für die VSprites 
eine Struktur. Sic hat den treffenden Namen ‘VSprite*. In ihr sind 
alle nötigen Daten enthalten, die zur Darstellung eines VSprites 
nötig sind. 
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Die VSprite-Struktur wird aber nicht nur für die Darstellung von 
VSprites verwendet, sondern auch für die BOBs. Dazu jedoch spä¬ 
ter. Wir werden hier nur soweit auf die Beschreibung der VSpri¬ 
te-Struktur eingehen, wie es für die Programmierung, der selben, 
von nöten ist. 


‘VSprite‘-Struktur: (Länge *5 8 Bytes) 


Offset 

Typ 

Bezeichnung 

Beschreibung 

000 

Long 

NextVSprite 

Zeiger auf nächste ‘VSpri- 
te‘-Struktur 

004 

Long 

PrevVSprite 

Zeiger auf Vorgänger ‘VSpri- 
te*-Struktur 

008 

Long 

DrawPath 

wird nur vom System benutzt 

012 

Long 

ClearPath 

wird nur vom System benutzt 

016 

Word 

OldY 

alte y-Position vom VSprite 
(System-Variable) 

018 

Word 

OldX 

alte x-Position vom VSprite 
(System-Variable) 

020 

Word 

Flags 

beschreibt wie das GEL zu be¬ 
handeln ist: 


VSprite 

Bit 0 = 1, 

dann Gel ist ein VSprite sonst BOB 


SaveBack 

Bit 1 = 1, 

Hintergrund wird gespeichert 


Overlay 

Bit 2 = 1, 

nur gesetzte Bits des Gels werden in 
die Grafik kopiert 


MustDraw 

Bit 3 = 1, 

für VSprites (Farben speichern) 


BackSaved Bit 6 = 1, 

Hintergrund wurde Gespeichert 

022 

Word 

Y 

Y-Position des VSprites 

024 

Word 

X 

X-Position des VSprites 

026 

Word 

Hcigth 

Höhe des VSprites (Anzahl Zei¬ 
len) 

028 

Word 

Width 

Breite des VSprites (Anzahl in 
Words) 

030 

Word 

Depth 

Anzahl Bitplanes (Tiefe) 
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032 

Word 

MeMask 

034 

Word 

HitMask 

036 

Long 

ImageData 

040 

Long 

Borderl ine 

044 

Long 

CollMask 

048 

Long 

SprColors 

052 

Long 

Bob 

056 

Byte 

PlanePick 

057 

Byte 

PlaneOnOff 

058 


END 


siehe Kapitel Collisionen 
siche Kapitel Collisioncn 
Zeiger auf Grafikdaten vom 
VSpritc (Datas) 
siehe Kapitel Collisioncn 
siche Kapitel Collisionen 
Zeiger auf Puffer mit 4 Words 
für Farbspcichcrung 
Zeiger auf ’BOB'-Struktur, (bei 
VSprites = 0) 

unwichtig (auf Null setzen) 
unwichtig (auf Null setzen) 
Ende der ‘VSprite'-Struktur 


Ausführliche Dokumentation der VSprite-Struktur: 


Next/Prcv-VSprite (Offset 000 und 004) 

Diese beide Adressen zeigen auf die folgende und vorangegangene 
VSprite-Struktur. Diese werden automatisch vom System eingetra¬ 
gen. Sie brauchen sich also nicht darum zu kümmern. 


DrawPath/ClearPath (Offset 008 und 012) 

Werden für das ordnungsgemäße Darstellen von BOBs benutzt. 
Diese Parameter werden auch automatisch vom System verwaltet. 
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OldY/OldX (Offset 016 018) 

In diesen Variablen werden die alten Positionen der BOBs gespei¬ 
chert. Damit der Hintergrund wieder korrekt zurückgeschrieben 
werden kann. Wird auch vom System verwaltet und ist für die 
VSpritc-programmierung nicht weiter von Bedeutung. 


Flags (Offset 020) 

Dieses Flag beschreibt, ob es sich bei der VSprite-Struktur um ei¬ 
nen BOB oder einen VSprite handelt. Da wir ja VSprites benutzen 
wollen, muß hier Bit 0 auf eins gesetzt werden. (Flag = 1) Alle an¬ 
deren Bits haben nur fr die Darstellung von BOBs eine Bedeu¬ 
tung. 


Y/X (Offset 022 und 024) 

Hier werden die Koordinaten des VSprites eingetragen, an denen 
es dann auf dem Bildschirm erscheinen soll. Erst die vertikale 
dann die horizontale Position. 


Hcigth und Width (Offset 026 und 028) 

Hier steht die Höhe und Breite des VSprites. Die Höhe kann wie 
bei den Simple-Sprites beliebig gewählt werden. Da Sprites aller¬ 
dings nur maximal 16 Punkte breit sein können, muß in Width ei¬ 
ne 1 eingetragen werden. Eine Eins, weil die Breite in Words an¬ 
gegeben werden muß. Und ein Word ist ja 16 Bit groß. Wenn Sie 
hier keine Eins eingeben, kann es passieren, daß Ihr Sprite später 
nicht auf dem Bildschirm erscheint. 
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Depth (Offset 030) 

Da Sprites nur 16 Punkte breit sind und sich nur aus einen HIGH 
und einem LOW-Word zusammensetzen, muß hier eine 2 eingetra¬ 
gen werden. Nur bei BOBs können hier bis zu 6 Planes eingetra¬ 
gen werden. 


ImageData (Offset 036) 

In diesen Long-Word wird die Anfangsadresse der SpriteDatas ab¬ 
gelegt, welche mit den beiden Controll-Words beginnen und mit 
den eigentlichen Grafikdaten fortgeführt werden. (Aufbau siehe 
Simple-Sprites) 


SprColors (Offset 048) 

Jedes VSpritc kann seine eigenen Farben besitzen. Jedoch will 
man für ein Spritepaar (z. B. Nummer 0 und 1) verschiedene Far¬ 
ben benutzen, ist der Amiga nicht in der Lage dieses zu bewerk¬ 
stelligen und ein Sprite würde ausfallen. Dieses können Sie ver¬ 
meiden, indem Sie allen Sprites die gleichen Farben zuordnen. 
Und in der GELsInfo-Struktur den ‘LastColor'-Zcigcr auf einen 
Puffer von 32 Bytes zeigen lassen. Wenn jedoch VSprites sich au¬ 
ßerhalb einer vertikalen Position von 200 befinden, nehmen Sie 
die Farbe des Mauspointers an. Dieses ist leider ein Fehler im Be¬ 
triebsystem und läßt sich nicht umgehen. 
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Hier ein Beispiel einer korckt initialisierten VSpritc-Struktur: 


vsprite: 

de.1 0,0 
de.I 0,0 
dc.w 0,0 
dc.w 1 
dc.w 40,50 
dc.w 2 
dc.w 1 
dc.w 2 
dc.w 0,0 
de.I data 
de.I 0,0 
de. I 0 
de. I 0 
de.b 0.0 


Next/PrevVSprite 

Draw/ClearPath 

OldY/X 

Flag: GEL = VSprite 
Y = 40, X = 50 (Position) 

Höhe = 2 Zeilen 

Breite = 1 Word (Festwert) 

Tiefe = 2 (Festwert) 

HeHask/HitMask 

Imagedaten 

BorderLine/ColiMask 

SprColors = keine eigenen Farben 

Keine BOB-Struktur 

PlanePick/OnOff 


data: 

dc.w 0,0 
dc.w $100,5234 
dc.w 5232,$232 
dc.w 0,0 


ControllWords 

1. Zeile HIGH und LOW-Word 

2. Zeile 
End of Datas 


Es ist zu beachten, daß bei VSprites keine "Attached"-Sprites, 
wie bei den Simple-Sprites, erzeugt werden können. 

Haben Sic nun die VSprite-Struktur soweit initialisiert, müssen 
Sie diese mit der Routine "AddVSprite () M in dem vorher dem 
RastPort mit "InitGels ()” zugewiesenen GELsInfo-Struktur 
einfügen. 

Bevor Sie jedoch die VSprites darstellen können, müssen Sie mit 
der Routine "SortGList () M die GEL-Liste sortieren. Damit der 
Copper entlastet wird und die größtmögliche Anzahl von VSprites 
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korekt dargestellt werden kann. 

Jetzt können Sic mit der Routine "DrawGList ()*' eine neue Cop- 
pcrliste vom System generieren lassen. Und mit "RcmakeDisplay 
()" (bei Screens) oder mit "MakeVPort ()", "MrgCop ()" und 
"LoadView ()’’ diese neue Copperliste dann ausführen. Jetzt end¬ 
lich erscheint Ihr VSpritc auf dem Bildschirm. 

Wenn Sie das Aussehen, die Position oder dergleichen vom VSpri- 
te ändern wollen, ändern Sie einfach die entsprechenden Zeiger 
und sortieren danach mit "SortGList ()'' die GEL-Listc wieder 
neu. Danach generieren Sie wieder eine neue Copperliste (Draw¬ 
GList) und führen wieder "RemakeDisplay ()" aus. 

Die Beschreibung der eben erwähnten Routinen darf hier 
natürlich auch nicht fehlen: 


Routine : 

Library 
Offset : 
Parameter: 

Rückgabe : 
Erklärung: 


AddVSprite (VSprite,Rastport) (A0,Al) 

graphics. 1ibrary 
-102 = -S66 

AO = Zeiger auf angelegte 'VSprite'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine führt ein VSprite zum Gelsystem hinzu. Um 
ein VSprite erscheinen zu lassen, m n ssen die Copperlisten 
neu berechnet werden! 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


RenVSprite (VSprite) (AO) 

graphics.1ibrary 
-136 = - S 8a 

AO = Zeiger auf angelegte 'VSprite'-Struktur 
keine 

Diese Routine entfernt ein VSprite für immer aus dem 
Gel System! 
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Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


SortGList (Rastport) (Al) 

graphics.1ibrary 
-150 = -S96 

Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine sortiert das Gelsystem (Position etc.). Muß 
vor jedem 'DrawGList ()' aufgerufen werden! 


Routine : 

Library : 

Offset 

Parameter: 

Rückgabe : 
Erklärung: 


DrawGList (RastPort,ViewPort) (Al,A0) 

graphics. 1 ibrary 
-114 = -S 7 2 

A0 = Zeiger auf 'ViewPort'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine generiert für alle VSprites eine neue Cop¬ 
perl iste. 


Das Beispielprogramm darf hier natürlich auch nicht fehlen. Es 
erzeugt einen Screen, auf dem ein VSprite bewegt wird. Wenn die 
rechte Maustaste betätigt wird, wird das Programm beendet. 


Prograaanaae = VSprites 
rechte Maustaste = Ende 


move.l #intname,a1 
clr.l dO 
move.l 4,a6 
jsr -552(a6) 
move.l dO, intbase 
tst.l dO 
beq exit 


; Zeiger auf lntuitionname 
; Version = 0 
; Execbase nach A6 
: Open Library 

: Intuitionbasis speichern 
: Error ? 
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move.l #gfxname,a1 
clr.l dO 
move.l 4,a6 
jsr -552(a6) 
move.l dO.gfxbase 
tst.l dO 
beq exit 

move.l #OSArgs,a0 

move.l intbase,a6 
jsr -190(a6) 
move.l dO.screen 

tst.l dO 
beq exit 

move.l screen.dO 
add.l #44,dO 
move.l dO,viewport 
move.l screen,dO 
add.l #04,dO 
move.l dO.rastport 

lea ge 1head,aO 
lea geltail,al 
lea gelsinfo,a2 
move.l gfxbase,a6 
jsr -120(a6) 
move.l rastport,aO 
move.l #gelsinfo,20(a0) 

lea vsprite.aO 
move.l rastport,a1 
move.l gfxbase,a6 
jsr -102(a6) 


Zeiger auf graphicsname 
Version = 0 
Execbase nach A6 
OpenLibrary 

Graphicsbasis speichern 
Error ? 


Zeiger auf Screenargumentenli- 
ste 

Intuitionbasis nach A6 
OpenScreen 

Adresse der Screendatenstruktur 

speichern 

Error ? 


; Screenadresse nach DO 
; ViewPort-Adresse ermitteln 
; und Zwischenspeichern 
; Screenadresse nach DO 
; RastPort-Adresse ermitteln 
; und Zwischenspeichern 

; Zeiger auf erste VSprite-Struktur 
; Zeiger auf letzte VSprite-Struktur 
; Zeiger auf Gelslnfo-Struktur 
; graphics-basis nach A6 
; InitGels 

; RastPort-Adresse nach AO 
; GELslnfo-Struktur in RastPort ein- 
; hängen 

; Zeiger auf VSprite-Struktur 
; Zeiger auf RastPort-Struktur 

; AddVSprite 0 
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lain: 


btst #10, $dff016 
beq exit 

; rechte Maustaste gedrückt ? 

move.l rastport,al 
move.1 gfxbase,a6 

: RastPort-Struktur nach Al 

jsr -150(a6) 

; SortGList 0 

move.l rastport,al 

; Zeiger auf RastPort-Struktur 

move.l viewport,aO 

; Zeiger auf ViewPort-Struktur 

move.l gfxbase,a6 

; graphicsbasis 

jsr -114(a6) 

; DrawGList 0 

move.l gfxbase,a6 
jsr -270(a6) 

; WaitTOF - damit der Sprite 
; nicht so flackert 

move.l intbase,a6 

; intuitionbasis 

jsr -304(a6) 

; RemakeDisplay 0 

bsr animat 

; VSprite bewegen 

bra main 



Positionen des VSprites ändern 


aniiat: 

lea vsprite,aO 
move.w 24(aO),d0 
cmp.w #310,dO 
bpi aneg 
cmp.w #0,dO 
bpi noneg 


VSpriteadresse nach A0 
X-pos. 

schon bei 310 ? 
wenn nicht, dann weiter 
oder bei 0 ? 
wenn nicht, dann weiter 
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aneg: 

neg.w pixelx 

noneg: 

move.w pixelx.dO 
add.w dO,24(aO) 
move.w 22(aO) ,d0 
emp.w #200,dO 
bpi aneg2 
emp.w #0,d0 
bpi noneg2 

aneg2: 

neg.w pixely 
noneg2: 

move.w pixely,dO 
add.w dO,22(aO 1 
rts 


; Vorzeichen von X-Speed ändern 


; X-Speed zur X-Pos addieren 
: Y-pos. 

: schon bei 200 ? 

: wenn nicht, dann weiter 
; oder bei 0 1 
; wenn nicht, dann weiter 


; Vorzeichen von Y-Speed ändern 


: Y-Speed zur Y-Pos addieren 
; Unterprogramm Ende 


Progrann beenden 


exit: 

move.l screen,a0 
cmp.l #0,aO 
beq exit2 
move.l intbase.aö 
jsr -66(a61 

exit2: 

move.l intbase,al 
cmp.1 #0, a1 
beq ex i 13 
move.l 4,a6 
jsr -414(a6) 
move.l gfxbase,al 


: Screendatenstruktur 
; 1iegt eine Adresse vor ? 

; Intuitionbasis 
; CloseScreen 


: Intuitionbasis 
; 1iegt eine Adresse vor ? 

: Execbasis 
: CloseLibrary 
; graphiesbasis 
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cmp.l #0,al 
beq ex i 13 
move .1 4,a6 
jsr -414(a6) 


; liegt eine Adresse vor ? 

: Execbasis 
: CloseLibrary 


ex it3: 

rts : Programmende 


:. Parameter -. 

pixelx: dc.w 1 
pixely: dc.w 1 

intname: dc.b "intuition.library',0 
even 

intbase: dc.l 0 

gfxname: dc.b "graphics.1ibrary",0 
even 

gfxbase: dc.l 0 
rastport: dc.l 0 
viewport: dc.l 0 

OSArgs: 

de.w 0,0 
dc.w 320,256 
dc.w 5 


: Speed in X-Richtung 
: Speed in Y-Richtung 


: ab hier Screenargumentenl iste 
; x und y-position 
: breite und höhe 
; anzahl der Bitplanes (=32 Far¬ 
ben ) 

Textfarben 
ViewMode = Normal 
Screen mit allen Funktionen 
kein eigener Font 
Zeiger auf Titletext 
keine Gadget 

keine eigene Bitmap-Struktur 
t\0 


dc.b 1,3 
dc.w 0 
dc.w 15 
dc.l 0 
dc.l title 
dc.l 0 
dc.l 0 

title: dc.b "Press Right Mouse to Ex 
even 
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screen: 
de. 1 0 


gelhead: blk.b 58,0 
geltail: blk.b 58.0 

gelsinfo: 
dc.b 252 
dc.b 0 
de.1 0,0 
dc.l nextline 
dc.l lastcolor 
dc.l collhandler 
dc.w 0,0,0,0 
dc.l 0,0 

nextline: blk.w 8.0 
lastcolor: blk.l 8,0 
collhandler: blk.l 16 

vsprite: 

dc.l 0,0 
dc.l 0,0 
dc.w 0,0 
dc.w 1 
dc.w 50,70 
dc.w 6,1 
de ,w 2 
dc.w 0,0 
dc.l imagedata 
dc.l 0 
de. 1 0 

dc.l SprColors 
de. 1 0 
dc.b 0,0 


; hier wird Screendatenstruktur gespeichert 


; Zeiger auf erste VSprite-Struktur 
■ Zeiger auf letzte VSprite-Struktur 

; ab hier Gelslnfo-Struktur 
:SprRsrvd: alle Sprites bis Mauspointer und 1 
; System-Flag 
; Ge 1Head,Ge 1 Ta i 1 


: Begrenzungsrand unwichtig 
; First/LastBlissObjekt 

: Puffer von 8 Words 

: Puffer von 8 Longs 

,0 : Puffer von 16 Longs 

: ab hier VSprite-Struktur 
; Next/PreWSprite 
: Draw/ClearPath 
: OldY/X 

: Flag: GEL = VSprite 
: Y,X-Position 
: Höhe = 6, Breite = 1 Word 
: Tiefe = 2 
: MeMask/HitMask 
: Grafikdaten des Sprites 
: BorderLine 
; Col lMask 
: SprColors 
; keine BOB-Struktur 
; PlanePick/OnOff 
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SprColors: dc.w 1 000,2000,3000,4000 : Farben vom VSprite 


ioagedata: 

dc.w *0000000001100110,%0000000000100100 ;Hl GH + LOWword zeile 1 

dc.w ^000000001 1 001100,10000000001001000 ;H1 GH + LOWword zeile 2 

dc.w V0001000110011000,%0000100010010000 :... 

dc.w %11 001011 00110000,%11 001001 00100000 :... 

dc.w *01 1001 1011000000,%0110001010000000 :... 

dc.w %00111 1011 0000000,%001 1 1 1 01 00000000 ;HIGH + LOWword zeile 6 

dc.w 0,0 


Listingende 


8.3 BOBs (BlitterObjekte) 

BOBs - die Abkürzung für BlitterObjekte - werden softwaremäßig 
erzeugt. Es können beliebig viele, in beliebiger Größe und in ei¬ 
nerbeliebigen Anzahl von Farben dargcstellt werden. 

Wie der Name schon sagt, werden BOBs mit Hilfe des Blitters er¬ 
zeugt und manipuliert. Und da der Blitter für das Darstellen von 
Grafiken, das sogenannte Blitterfenster in Word-Breite benötigt, 
muß die Breite eines BOBs durch 16 teilbar sein. 

Die BOBs werden direkt in den Speicher der Bitplancs eines Rast- 
Ports hineinkopiert. Deswegen hängt die Auflösung immer von den 
gerade eingestelltem Modus ab. 

BOBs sind also Teile des eigentlichen Grafikbildes. Doch durch 
das Kopieren in das Grafikbild, würde der Hintergrund normaler¬ 
weise Verloren gehen. Damit dies nicht geschieht, kann man 
durch setzen bestimmter Flags, dem Blitter mitteilen, den Hinter¬ 
grund vorher zwischen zu speichern. 
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Das neuberechnen der Copperlisten entfällt bei den BOBs, da sie 
sofort dargestellt werden. Denn das Grafikbild wird ja automa¬ 
tisch durch den Copper ständig erneuert. 

Genauso wie VSprites, sind auch die BOBs teile des GEL-Sy- 
stcins. Bevor wir also BOBs erzeugen können, muß erstmal das 
Gelsystem initialisiert werden. Wie bei den VSprites muß eine 
Gelsinfo-Struktur angelegt, mit der Routine "InitGels ()" initiali¬ 
siert und diese dann in die RastPort-Struktur eingebunden werden. 

Jetzt brauchen wir nur noch eine VSpritc-Struktur für den BOB 
anlegen und diese mit den entsprechenden Werten füllen. Es folgt 
der Aufbau und die Beschreibung der VSprite-Struktur, wie es für 
die Erzeugung von BObs erforderlich ist. 

‘VSpritc‘-Struktur: (Länge = 58 Bytes) 


Offset 

Typ 

Bezeichnung 

000 

Long 

NextVSprite 

004 

Long 

PrcvVSpritc 

008 

Long 

DrawPath 

012 

Long 

ClearPath 

016 

Word 

OldY 

018 

Word 

OldX 

020 

Word 

Flags 


SaveBack 

Bit 1 = 1. 


Overlay 

Bit 2 = 1, 

022 

Word 

Y 

024 

Word 

X 
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Beschreibung 

Zeiger auf nächste ’VSpri- 
te'-Stru ktur 

Zeiger auf Vorgänger ’VSpri- 
te‘-Stru ktur 

wird nur vom System benutzt 
wird nur vom System benutzt 
alte y-Position vom BOB (Sy¬ 
stem-Variable) 

alte x-Position vom BOB (Sy¬ 
stem-Variable) 

beschreibt wie das GEL zu be¬ 
handeln ist: 

Hintergrund wird gespeichert 

nur gesetzte Bits des BOBs werden in 

die Grafik kopiert 

Y-Position des BOBs 
X-Position des BOBs 
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026 

Word 

Heigth 

028 

Word 

Width 

030 

Word 

Depth 

032 

Word 

MeMask 

034 

Word 

HitMask 

036 

Long 

ImagcData 

040 

Long 

Borderl ine 

044 

Long 

CollMask 

048 

Long 

SprColors 

052 

Long 

Bob 

056 

Byte 

PlanePick 

057 

Byte 

PlaneOnOff 

058 


END 
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Höhe des BOBs (Anzahl Zei¬ 
len) 

Breite des BOBs (Anzahl in 
Words) 

Anzahl Bitplanes (Tiefe) 
siehe Kapitel Collisionen 
siche Kapitel Collisioncn 
Zeiger auf Grafikdaten vom 
BOB (Datas) 

siehe Kapitel Collisionen 
(Wichtig) 

siche Kapitel Collisioncn 
unwichtig 

Zeiger auf ‘BOB“-Struktur 
siehe unten 
siehe unten 

Ende der ‘VSpritc'-Struktur 


Ausführliche Beschreibung der VSpritc-Struktur: 

Die Parameter mit den Offsets 000 bis 018 sind Systemvariablen, 
um die man sich nicht zu kümmern braucht. 


Flags (Offset 020) 

Wenn der Hintergrund von einen BOB zwischengespeichert wer¬ 
den soll, dann muß hier das Bit 1 gesetzt werden. Ansonsten geht 
der Hintergrund verloren. Wird das Overlay-Bit gesetzt, werden 
nur die gesetzen Punkte eines BOBs in den RastPort kopiert, 
übcall wo eine Null steht, scheint der Hintergrund durch. Der 
BOB wird sozusagen transparent über das Bild gelegt. 
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Y/X (Offset 022 und 024) 

Hier befinden sich die Koordinaten des BOBs. Erst die vertikale 
und danach die waagerechte Position. BOBs können sich auch au¬ 
ßerhalb des oder teilweise im RastPort befinden. Denn alle Bits 
die sich außerhalb der möglichen Koordinaten befinden, werden, 
vor der Ausgabe auf dem Screen, vom System abgeschnitten. 


Heigth/Widtb (Offset 026 und 028) 

Damit das System wei, wie hoch und breit ein BOB ist, müssen 
Sie hier die entsprechenden Werte eintragen. Dabei wird die 
Höhe, wie gewohnt in Zeilen aber die Breite hingegen in Words 
angegeben. Nehmen wir mal an der BOB wäre 18 Punkte (Pixel) 
breit, dann müßte sie bei "Width" eine zwei entragen. 


Deptb (Offset 030) 

Da ein BOB aus beliebig vielen Farben bestehen kann und die 
Farbanzahl von der Anzahl Bitplanes abhängt, wird hier die An¬ 
zahl der verwendeten Bitplanes eingetragen. Dabei darf die Tiefe 
(Depth) des BOBs nicht die Tiefe vom Screen überschreiten, die¬ 
ses könnte zum Abstürzen (Guru...) führen. 


ImageData (Offset 036) 

Hier steht die Anfangsadresse der ersten Bitplane vom BOB. Die 
Bitplanes müssen hintereinander im Speicher liegen. Also erst 
Bitplane 1 dann 2 usw. 
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BOB (Offset 052) 

Für einige Spczialcffekte braucht das System eine Zusatzstruktur, 
in der die gesuchten Informationen enthalten sind. Diese Struktur 
nennt sich "BOB" und die Anfangsadresse dieser wird hier einge¬ 
tragen. Wie die Struktur aufgebaut ist, darauf wird unten weiter 
eingegangen. 


PlanePick/PlaneOnOff (Offset 056 und 057) 

PlanePick gibt an, welche Bitplanes des BOBs in die Grafik ko¬ 
piert werden soll. Jedes Bit steht dabei für eine Bitplanc (z. B. 
Bit 0 = Bitplane 0 etc.). Wenn der BOB z. B. aus 5 Bitplanes be¬ 
steht, also in Depth eine 5 steht, müssen hier die ersten 5 Bits ge¬ 
setzt werden (Bits 0 bis 4). Sonst wird keine Grafik dargcstcllt. 
PlaneOnOff gibt an, welche BitPlanes, die nicht angeschaltet 
sind, mit dem "ImageShadow" der BOB-Struktur beschrieben wer¬ 
den. Mit diesen beiden Variablen lassen sich verschiedene Farb- 
kombinationen für den BOB hcrstellcn. 


Die BOB-Struktur wurde ja schon erwähnt, wie diese nun genau 
aufgebaut ist, darauf wird jetzt cingcgangcn: 


‘BOB‘-Struktur: (Länge = 30 Bytes) 

Muß mit “VSpritc'-Struktur verbunden werden (Offset 52)! 


Offset Typ 


Bezeichnung Beschreibung 


000 Word 

User--SaveBOB 

User--BOBisComp 


B_Flags wie das BOB vom System be¬ 

handelt werden soll: 

Bit 0 = 1, dann wirkt BOB wie ein Paintbrush 
Bit 1 =1, Bob besitzt eine 'AnimComp'-Struktur 
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BWaiting Bit 8 = 1, ein BOB auf den 'Before' in der 'BOB'- 

Struktur zeigt, wird zuerst gezeichnet 
BDrawn Bit 9 = 1, BOB wurde gezeichnet 

BobsAway BitlO = 1, BOB wird beim nächsten 'DrawGList ()' 

aus dem Gelsystem entfernt 

BobNix Bitll = 1, Bob wurde aus dem Gelsystem entfernt 

002 Long SaveBuffer Zeiger auf Puffer zum spei¬ 
chern des Hintergrundes (nur 
wenn SavcBack-Flag in VSpritc 
gesetzt ist) SaveBufferSize = 
bobhöhe * bobbreite * 2 * 
screentiefe 


006 

Long 

ImageShadow 

Zeiger auf Puffer in der die 
Maske aller gesetzten Bits von 
allen Bitmaps zusammen steht 
ImageShadowSize = bobhöhe * 
bobbreite * 2 

010 

Long 

Before 

Zeiger auf BOB-Struktur, die 
über diesen BOB gezeichnet 
werden soll (oder Null) - Priori¬ 
tät 

014 

Long 

After 

Zeiger auf BOB-Struktur, die 
hinter diesem BOB gezeichnet 
werden soll (oder Null) - Priori¬ 
tät 

018 

Long 

VSprite 

Zeiger auf dazugehörige VSpri- 
te-Stru ktur 

022 

Long 

BobComp 

Zeiger auf 'Ani- 

mComp'-Struktur, nur wenn 
Flag 'BOBisComp“ in BOB- 
Struktur gesetzt (sonst Null) 

026 

Long 

DBuffer 

Zeiger auf ‘DBufPak- 

kct“-Struktur (wenn BOB dop¬ 
pelt gepuffert werden soll - 
sonst Null) 

030 


END 

Ende der ‘BOB'-Struktur 
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Auch hier eine ausführliche Dokumentation: 


B_Flags (Offset 000) 

Mit diesem Flag werden die Charaktere des BOBs bestimmt. Wird 
das "SaveBOB"-Flag gesetzt, dann wird der Hintergrund nicht 
zwischengespeichert, sondern von BOB überschrieben. Dadurch 
ist es ziemlich leicht möglich den BOB als Brush-Pinsel, wie es 
z. B. DeluxePaint bietet, zu benutzen. Auf das "BOBis- 
Comp"-Flag wird im Animationskapitel eingegangen. Es muß ge¬ 
setzt werden, wenn der BOB von System animiert werden soll. Die 
anderen Flags werden vom System genutzt. 


SavcBuffcr (Offset 002) 

Hier muß die Adresse des Puffers eingetragen werden, in dem der 
Hintergrund zwischengespeichert wird. Natürlich nur, wenn das 
"SAVEBACK"-Flag in der dazugehörigen VSprite-Struktur gesetzt 
ist. Der Puffer muß von ihnen selbst reserviert werden. Die Größe 
des Puffers entsteht durch Multiplikation von Bobhöhe * Bobbrei¬ 
te * 2 * Screentiefe. 


ImagcShadow (Offset 006) 

Dieser Puffer muß von ihnen reserviert werden. In dem Puffer 
wird, durch aufrufen der Routine "InitMasks ()", die Maske des 
BOBs abgelegt. Die Maske entsteht durch eine ODER-Ver¬ 
knüpfung aller vorhandenen Bitmaps des BOBs. Sie ist nötig zur 
richtigen Berechnung des BOBs, beim Kopieren in den Hinter¬ 
grund. Die Puffergröße entspricht einer Bitmapgrößc vom BOB. 
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Before/After (Offset 010 und 014) 

Diese Adressen werden für die Berechnung der Prioritäten der 
BOBs benötigt. Wenn die Priorität egal sein soll, kann man diese 
Zeiger auf Null setzen. Wie diese Zeiger zu verwenden sind, wird 
im Kapitel Prioritäten beschrieben. 

VSpritc (Offset 018) 

Hier muß die Adresse der dazugehörigen VSprite-Struktur von ih¬ 
nen eingetragen werden, sonst erscheint kein BOB auf dem Bild¬ 
schirm. Oder es kann sogar zum Abstürzen führen. 


BobComp (Offset 022) 

Dieser Zeiger wird für die automatische Animation eines BOBs 
durch das System benötigt. Er zeigt dann auf eine zusätzliche 
Struktur. Wenn sic den BOB allerdings selbst animieren wollen, 
brauchen sie hier einfach nur eine Null eintragen. Wie die Ani¬ 
mation durch das System programmiert wird, steht im Kapitel 
"BOB-Animtion”. 


DBuffer (Offset 026) 

Dieser Zeiger wird für das Programmieren von doppelt gepufferten 
BOBs benötigt. Durch das doppelt puffern, fällt das Flackern und 
Ruckein des BOBs weg. Siehe Kapitel "Double-Buffer-BOBs". 


Das war jetzt wieder recht viel trockendcr Stoff der abgchandelt 
wurde. Zum besseren Verständnis folgt nun ein Beispiel zur Ini¬ 
tialisierung der VSprite- und BOB-Struktur eines BOBs. 
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vsprite: 

: ab hier VSprite-Struktur 

dc.l 0,0 

; Next/PrevVSprite 

dc.l 0,0 

: Draw/ClearPath 

dc.w 0,0 

; OldY/X 

de.w 6 

; Flag: SaveBack/Overlay 

dc.w 0,0 

: Y,X-Pos ition 

dc.w 3,2 

; Höhe = 3, Breite = 2 Words 

de.w 3 

; Tiefe = 3 Bitmaps 

dc.w 0,0 

; MeMask/HitMask 

dc.l imagedata 

: Grafikdaten des BOBs 

dc.l borderline 

: BorderLine (Size = Bobbreitel 

dc.l shadowmask 

; ColiMask = Shadowmask 

dc.l 0 

: SprColors = keine 

de. 1 bob 

: Zeiger auf BOB-Struktur 

dc.b 7,0 

: PlanePick = 7 für drei Bitmaps 


; / OnOff = Nul1 


iiagedata: 

de.w *1100000110000110,%0110111100000000 ; Zeile 1 v. Bitmap 1 

de.w *1100011001100110,*0110110000000000 ; Zeile 2 v. Bitmap 1 

de.w %11110n001100011,%1 000110000000000 ; Zeile 3 v. Bitmap 1 

dc.w *0011110000000000,*0011110000000000 ; Zeile 1 v. Bitmap 2 

de.w ^0000000000000000,^0000000000000000 ; Zeile 2 v. Bitmap 2 

dc.w *0000011110000000,*0000001111000000 ; Zeile 3 v. Bitmap 2 

dc.w *0000000000011100,*0000000000000000 ; Zeile 1 v. Bitmap 3 

dc.w *0000011110000000,^0001111100000000 ; Zeile 2 v. Bitmap 3 

dc.w *0011100000000000,^0000000000000000 ; Zeile 3 v. Bitmap 3 

bob: : ab hier BOB-Struktur 

dc.w 0 : Flag = Null 

dc.l savebuffer ; Zeiger auf Puffer für Hintergrundspeiche- 

; rung 

dc.l imageshadow ; Zeiger auf Puffer wo Maske abgelegt wird 

de. 1 0,0 : Priorität egal 
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dc.l vsprite : Zeiger auf dazugehörige VSprite-Struktur 

dc.l 0 : Keine BobComp-Struktur für Animation 

dc.l 0 : kein double-buffering 

savebuffer: blk.b 3 X 2 X 2 X 5 : Puffergröße 

imageshadow: blk.b 2 * 2*2 : Puffergröße 

borderline: blk.b 2*2 ; Puffergröße 


8.4 Bobroutinen des Systems 

Um ein BOB in das Gel-System einhängen zu können, muß man 
als erstes die Geisinfo-, VSprite- und BOB-Struktur anlegen. Da¬ 
nach durch aufrufen von "InitGels ()" das Gclsystcm initialisie¬ 
ren. Die Gelslnfo-Struktur mit der RastPort-Struktur verbinden, in 
dem der BOB später erscheinen soll. Die Routine "InitMaks ()" 
setzt dann die ShadowMask vom BOB, in dem vorher reservierten 
Puffer. Jetzt endlich, kann man mit der Routine "AddBOB ()" den 
BOB zum Gelsystem hinzufügen. 

Die Routine "SortGList ()'' sortiert die Gelüste und "DrawGList 
0“ stellt die BOBs in der Gel-Liste auf der BitMap da. 

Das ganze nochmal in Stichworten der Reihe nach sortiert: 

1. ‘Gelslnfo’-, ‘VSprite’- und ‘BOB'-Struktur anlegen 

2. ‘InitGels ()‘ aufrufen ; Gclsystcm initialisieren 

3. 'Gelslnfo’-Struktur mit ‘RastPort'-Struktur verbinden 
(Offset 20) 

4. ‘InitMasks ()‘ aufrufen ; Masken initialisieren 

5. ‘AddBob ()‘ aufrufen BOB zum Gelsystem hinzu¬ 
fügen 

6. ‘SortGList ()‘ aufrufen ; Gclsystcm sortieren 

7. ‘DrawGList ()‘ aufrufen ; BOB in die Bitmap zeich¬ 
nen 
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Punkt 6 und 7 sind immer wieder durchzufüliren, wenn ein BOB 
bewegt werden soll. 

Wie die einzelnen Routinen aufgerufen bzw. mit welchen Para¬ 
metern sie versorgt werden müssen, können sie den folgenden Be¬ 
schreibungen entnehmen. 


Routine 

Library 
Of f sei 
Parameter 


Rückgabe : 
Erklärung: 


InitGels (GelHead,Ge 1 Tai1,Gelsinfo) (A0,A1,A2) 
graphics.1ibrary 
-120 = -S76 

A0 = Zeiger auf einen Puffer mit 56 Null-Bytes 
Al = Zeiger auf einen Puffer mit 56 Null-Bytes 
A2 = Zeiger auf angelete 'Gelsinfo'-Struktur 
keine 

Diese Routine initialisiert das Gelsystem. Die 'Gelsln- 
f o'-Struktur braucht dann nur noch mit der 'Rast- 
Port '-Struktur verbunden werden lOffset 2011 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


InitMasks (VSprite) (A0) 

graphics.1ibrary 
-126 = -S 7e 

A0 = Zeiger auf angelegte 'V/Sprite'- Struktur 
keine 

Diese Routine initialisiert die Variablen 'CollMask', 
'BorderLine', und ' ImageShadow'. Es muß natürlich vorher 
genügend Speicher reserviert worden sein. 


Routine : 

AddBob (BOB,RastPort) (A0,Al) 

Library : 

graphics.1ibrary 

Offset 

-96 = -S60 

Parameter: 

AO = Zeiger auf angelegte 'BOB'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 

Rückgabe : 

keine 
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Erklärung: Diese Routine führt einen BOB zum Gelsystem hinzu. 'BOB'- 
und 'VSprite'-Struktur müssen vorher miteinander verbun¬ 
den werden! 


Routine 

Real Bob (BOB,RastPort,Viewport) (A0,Al,A2) 


Library 

graphics.1ibrary 


Offset 

-132 = -S64 


Parameter 

AO = Zeiger auf angelegte 'BOB'-Struktur 

Al = Zeiger auf 'RastPort'-Struktur 

A2 = Zeiger auf 'ViewPort'-Struktur 


Rückgabe 

keine 


Erklärung 

Diese Routine entfernt einen BOB für immer aus dem 
System! 

Gel - 

Routine 

SortGList (RastPort) (Al) 


Library 

graphics.1ibrary 


Offset 

-150 = -S96 


Parameter 

Al = Zeiger auf 'RastPort'-Struktur 


Rückgabe 

keine 


Erklärung 

Diese Routine sortiert das Gelsystem (Position etc.) 
vor jedem 'DrawGList ()' aufgerufen werden! 

Muß 

Routine 

DrawGList (RastPort,Viewport) (Al,AO) 


Library 

graphics.1ibrary 


Offset 

-114 = -$72 


Parameter 

AO = Zeiger auf 'ViewPort'-Struktur 

Al = Zeiger auf 'RastPort'-Struktur 


Rückgabe 

keine 


Erklärung: 

Diese Routine zeichnet alle BOBS auf den Bildschirm 
in die Bitmap! 

bzw. 
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Auch hier darf natürlich das Beispielprogramm nicht fehlen. Es 
erzeugt einen einfachen BOB, welcher sich über den Bildschirm 
bewegt. 


— Prograianaie = MoveBOB — 
rechte Maustaste = Prg.-Ende 


move.l 4,a6 
move.l #gfxname,a1 
clr. 1 dO 


jsr -552 (a6) 
move.l dO.gfxbase 

Open Gfx.-Library 

move.l 4,a6 
move.l #intname,a1 
clr. 1 dO 


jsr -552(a6) 
move.l dO, intbase 

Open Int.-Library 

move.l Inewscreen.aO 
move.l intbase,a6 
jsr -190(a61 
move.l dO.screenhd 

Open Newscreen 

move.l dO,aO 

Screenadresse nach AO 

add.l #84,aO 

plus 84 

move.l aO.rastport 

Save Rastportadresse 

move.l dO,aO 

Screenadresse nach AO 

add.l #$2c,a0 

plus 44 

move.l aO,viewport 

Save Viewportadresse 
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;-Gels intitialisieren 

move.l #dummyhead,aO 
move. 1 #dummytai1,al 
move.l #gelsinfo,a2 
move.l gfxbase,a6 
jsr -120(a6) 

move.l rastport.aO 
move.l #gelsinfo,20(a0) 

move.l gfxbase,a6 
move.l ifvsprite.aO 
jsr -126(a61 

move.l #bob,aO 
move.l rastport,a1 
move.l gfxbase,a6 
jsr -96(a6) 

dravjoop: 

move.l rastport,a1 
move.l gfxbase,a6 
jsr -150(a6) 
move.l ras tpor t,al 
move.l viewport,aO 
move.l gfxbase,a6 
jsr -114(a6) 
wait: 

bist #10, Sdff016 
beq exit 

move.l gfxbase,a6 
jsr -270(a61 

bsr move_bob 
bra draw_loop 


: Zeiger auf Gelslnfo-Struktur 
: gf xbase 
; InitGels (1 

: Zeiger auf RastPort nach AO 
: Gelsinfo in Rastportstruktur 

: gfxbase 

: Zeiger auf VSprite-Struktur 
: InitMasks () 

: Zeiger auf BOB-Struktur 
: Zeiger auf RastPort-Struktur 
: gfxbase 
: AddBOB (I 


Zeiger auf RastPort 
gfxbase 
SortGList (1 
Zeiger auf RastPort 
Zeiger auf ViewPort 
gdxbase 
DrawG List ( I 

rechte Maustaste gedrückt ? 
wenn ja, Programm beenden 

WaitTof - damit BOB nicht so 
flackert 

BOB über Bildschirm bewegen 
das ganze wieder von vorne 
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BOB über den Bildschirm bewegen 


mov-e bob: 


move.l #vsprite,a0 

mo ve.w 2 4(aO),dO 

X-pos. 

cimp.w #300.dO 

schon bei 300 1 

bhi aneg 

wenn ja, dann andere Richtung 

emp.w #0,d0 

schon bei 0 ? 

bh i noneg 

wenn nicht.. dann weiter 

aneg: 

neg.w speedx 

Richtung wechseln 

noreeg: 

add.w speedx,dO 

BOB in X-Richtung bewegen 

move.w dO,24(aO) 

neue x-position 

move.w 22(aO) .dO 

Y-pos. 

emp.w #164,dO 

schon bei 164 ? 

bhi aneg2 

wenn ja, dann andere Richtung 

emp.w #0,d0 

schon bei 0 1 

bhi noneg2 

wenn nicht, dann weiter 

aneg2: 

neg.w speedy 

Richtung wechseln 

noneg2: 

add.w speedy,dO 

BOB in Y-Richtung bewegen 

move.w dO.22(aO) 

neue y-pos. 

rts 


Programm beenden 


exit: 

move.l intbase,a6 
move.l screenhd.aO 

jsr -66(a6) ; Close Newscreen 
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move.l intbase,al 
move.l 4,a6 
jsr -414(a6) 

move.l gfxbase.al 
move.l 4.a6 
jsr -414(a6) 

rls 


: Close Int.-Library 

: Close Gfx.-Library 
: Ende 


;-Paraaeter- 

intname: dc.b "intuition. 1 ibrary",0 
even 

gfxname: dc.b “graphics.1ibrary",0 
even 

intbase: dc.l 0 
gfxbase: dc.l 0 
screenhd: dc.l 0 

npwsrrppn* 

dc.w 0,0,320,256.5,50103,2,15 
dc.l 0,title,0,0 
title: dc.b "BOB-Demo",0 
even 

rastport: dc.l 0 
viewport: de . I 0 

;-Bob-Paraaeter. 

dummyhead: blk.b 58,0 
dummytail: blk.b 58,0 
gelsinfo: blk.b 38,0 

speedx: dc.w 2 
speedy: dc.w 2 
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vsprite: 

ab hier VSprite-Struktur 

de. 1 0,0 

Next/Prev-VSprite 

de.1 0,0 

Draw/Clear-Path 

dc.w 0,0 

Old Y,X 

de,w 6 

Flag: SaveBack/Overlay 

dc.w 40,80 

Y, X-Position 

dc.w 16,1 

Höhe = 16 und Breite = 1 Word 

de.w 2 

Tiefe = 2 BitMaps 

de .w 0,0 

MeMask/HitMask 

dc.l imagedata 

Grafikdaten 

dc.l borderline 

Borderl ine 

dc.l imageshadow 

ColiMask = Imageshadow 

dc.l 0 

SprColors 

de.1 bob 

Zeiger auf BOB-Struktur 

dc.b 3.0 

PlanePick/PlaneOnOff 

bob: 

ab hier BOB-Struktur 

de .w 0 

Flag: normal 

dc.l savebuffer 

Puffer für Hintergrundspeiche¬ 

dc.l imageshadow 

rung 

Maskenpuffer 

dc.l 0,0 

Priorität egal 

dc.l vsprite 

Zeiger auf dazugehörige VSpri¬ 

dc.l 0,0 

te-Struktur 

keine Animation und double- 

:iiagedata: 

buffering 


de.w 0.0,0,0,$c60,$c60,$c60,$600c,$600c,$3016,$3018,Slc70,$fe0,$380 
dc.w 0,0,$7c0,$lff0,$3ff8,$7ffc,$7ffc,$fffe,$fffe,$fffe,$fffe,$fffe 
dc.w $7ffc,$7ffc,$3ff8,$lff0,$7c0,$0 

savebuffer: blk.b 16 X 1 X 2 X 5,0 
imageshadow: blk.b 16 x l x 2,0 

borderline: blk.b l x 2,0 : Size = Bobbreite x 2 

END 

. Listingende -.. 
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8.5 Double-Buffer-BOBs 

BOBs ab einer bestimmten Größe, fangen, wenn man sie über den 
Scrccn bewegt, an zu flackern. Dies wird dadurch verursacht, 
wenn man mit dem Blittcr eine Operation startet, also BOBs be¬ 
wegt, das der Rasterstrahl z. B. gerade die 150. Zeile durchläuft 
aber der Blittcr soll Daten bewegen, die schon ab Zeile 100 be¬ 
ginnen und bis Zeile 200 liegen. Dann werden nähmlieh erst alle 
Daten ab Zeile 150 dargcstellt und die Daten die ab Zeile 100 lie¬ 
gen, werden erst beim nächsten Rasterstrahldurchlauf dargestellt. 
Wenn man nicht allzu viele, übermäßig Große Objekte bewegen 
möchte, gibt cs die Möglichkeit mit der Routine ‘WaitTOF ()“ auf 
die Vertikale Austastlücke zu warten und danach sollte man dann 
seine Objekte bewegen. Oder man wartet mit der Routine 
’VBeamPos ()' bis die letzte Zeile des Scrccns aufgebaut wurde 
und bewegt dann seine Objekte. 

Möchte man aber viele und große Objekte flackerfrei bewegen, so 
geht dieses nur im DoublcBuffering-Modus. Dies klingt kompli¬ 
zierter als cs ist. 

Man legt dazu einfach zwei gleichgroße Bitmaps an, also zwei 
Bitmapstrukturen. Wenn man die Objekte bewegen möchte, so 
wird dieses im unsichtbaren, nicht aktiven Display, mit den Rou¬ 
tine 'SortGList ()‘ und ‘DrawGList ()‘ erledigt, schaltet dann die 
unsichtbare Bitmapstruktur in die Rasterportstruktur, wartet auf 
die Vertikale Austastlückc, berechnet dann mit ‘MakeVPort ()\ 
‘MrgCop ()‘ und 'LoadView ()‘ die Coppcrlistcn neu. 

Dazu muß aber jedesmal der Hintergrund von zwei Bitmaps geret¬ 
tet werden. Aber woher weiß das System, wo nun die Adressen der 
beiden Displays liegen? Dazu gibt die Struktur 'DBufPackct*. 
Diese Struktur initialisiert man, in dem man den Zeiger "DBuf- 
fer" aus der BOB-Struktur auf diese Struktur zeigen läßt. Wenn 
man diesen Zeiger auf Null setzt, läuft der BOB automatisch 
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nicht im DoubleBuffering-Modus. Außerdem kann man entweder 
nur alle BOBs im DoubleBuffcring laufen lassen, oder keinen. 
Wie die DBufPackct-Struktur aussieht, wird nun im folgenden Be¬ 
schrieben: 


DBufPackct-Struktur: (Länge = 16 Bytes) 


Offset 

Typ 

Bezeichnung 

000 

Word 

BufY 

002 

Word 

BufX 

004 

Long 

BufPath 

008 

Long 

BufBuffer 

012 

016 

Long 

BufPlanes 

END 


Beschreibung 

Y-Position vom Hintergrund des 
zweiten Screens 

X-Position vom Hintergrund des 

zweiten Screens 

Zeiger auf VSpritc-Struktur 

Zeiger auf einen Puffer, der 

genausogroß ist, wie der von 

SaveBuffer, zum Speichern des 

zweiten Hintergrundes 

Zeiger auf Plancpointcrs des 

zweiten Screens 

Ende der DBufPackct-Struktur 


Bei dieser Struktur braucht bloß der BufBuffer-Zciger initialisiert 
werden, die anderen Variablen werden automatisch vom System 
beschrieben! Der "BufBuffer" ist genauso groß, wie der "SaveBuf- 
fcr"-Puffcr von der BOB-Struktur und muß genauso von Ihnen re¬ 
serviert werden. 

Um ein DoublcBuffcring-BOB über den Bildschirm zu bewegen, 
sind folgende Schritte durchzuführen: 


1. zwei gleichgroße Bitmaps erstellen und DBufPacket- 
Struktur init. 

Loop: a. unsichbare Bitmapstruktur in die Rastcr- 
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Port-Struktur einhängen 

b. BOB bewegen (Animate () oder Koordina¬ 
ten ändern) 

c. “SortGList ()* und 'DrawGList ()* aufrufen 

d. ‘WaitTOF ()* aufrufen e. Copperlisten neu¬ 
berechnen [entweder mit ‘MakeVPort ()\ 
‘MrgCop ()* und ‘LoadVicw ()' oder bei 
Screens mit ‘RemakeDisplay ()*] 

f. Punkt a durchführen JMP Loop 

Das ''doublc-buffcring~ findet beim Atniga große Anwcndungs- 
vielfalt. Es wird in jedem Spiel, bei Demos oder in Malprogram¬ 
men eingesetzt. Im Kapitel "BOB-Animation" ist ein Beispielpro¬ 
gramm vorhanden, was BOBs in diesem Modus bewegt. 


8.6 BOB-Animation 

Der Amiga bietet die Möglichkeit Objekte automatisch vom Sy¬ 
stem animieren zu lassen. Man kann sogar verschiedene Animat- 
ionssequencen als ein Objekt darstellen. Damit wird es spielend 
einfach bewegete Figuren, wie wie zum Beispiel einen laufenden 
Hund, einen fliegenden Hubschrauber etc. zu erzeugen. 

Ein solcher BOB wird als Animationsobjekt bezeichnet. Das Ani¬ 
mationsobjekt besteht aus verschiedenen Animationskomponen¬ 
ten (Sequencen). Ein Animationskoinponent (Sequence) wird wie¬ 
derum durch einen Bob dargestellt. 

Folgendes Schaubild 15Bt sich dadurch erstellen: 

‘AnimOb'-Struktur ; Verbindet einzelne Sequencen (Ani- 

mCotnps) zu einem Objekt 

‘AnimComp'-Struktur ; Stellt eine Sequence dar (Komponent) 
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‘Bob*-Struktur ; Bestimmt das Aussehen der einzelnen 

Komponenten 

‘VSprite’-Struktur ; wird immer mit einer BOB-Struktur ini¬ 
tialisiert 

Um ein Objekt darzustellen muß das BOBisCoinp-Flag in den 
BOB-Flags gesetzt (Bit 1 - siehe BOB-Struktur) und mindestens 
die 4 oben aufgeführten Strukturen initialisiert werden. Mit *Ad- 
dAnimOb ()‘ , kann das Objekt ins System eingebunden werden. 
Nun kann man mit der Routine ‘Animate ()‘ das Objekt vom Sy¬ 
stem animieren lassen und mit ‘SortGList ()‘ und ‘DrawGList ()‘ 
auf den Bildschirm bringen. 

Es folgt nun ein Beschreibung der eben genannten Routinen: 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


AddAniaOb (AniiOb.HeadOb,RastPort) (A0,Al,A2) 

graphics.1ibrary 
-156 = -S9c 

AO = Zeiger auf angelegte 'AnimOb'-Struktur 
Al = Zeiger auf einen Puffer von 4 Bytes (dc.l 0). Die¬ 
ser Puffer zeigt immer auf das zuletzt eingefügte 
'AnimOb'. Beim ersten Aufruf dieser Routine, muß 
dieser Puffer mit Null gefüllt sein. 

A2 = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine führt ein Objekt zum Gelsystem hinzu. 


Routine Aniiate (HeadOb,RastPort) (A0,Al) 

Library graphics.1ibrary 

Offset -162 = -Sa2 

Parameter: AO = Zeiger auf einen Puffer von 4 Bytes (dc.l 0). Die¬ 
ser Puffer zeigt immer auf das zuletzt eingefügte 
'AnimOb'. (s.o.) 

Al = Zeiger auf 'RastPort'-Struktur 
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Rückgabe : keine 

Erklärung: Diese Routine animiert ein Objekt. Es berechnet entspre- 
chent die Werte in den Strukturen neu. Mit 'SortGList ()' 
und 'DrawGList ()' kann man dann das Objekt auf den 
Bildschirm darstellen. 


Um ein ‘AnimObjekt* über den Bildschirm bewegen zu können, 
müssen folgende Schritte cingchalten werden: 


1. jsr ‘Animate ()* ; 

2. jsr “SortGList ()‘ ; 

2.1 jsr ‘DoCollision ()“ ; 

3. jsr “DrawGlist ()‘ ; 


Anim-Strukturen berechnen 
Gel-Liste sortieren 
wenn Collision noch abge¬ 
fragt werden soll 
Gel-Liste auf Bildschirm 
ausgeben 


Es fehlt jetzt nur noch die Beschreibung der beiden Strukturen 
‘AnimOb“- und “AnimComp’- , welche jetzt folgt: 


‘AnimOb‘-Struktur: (Länge = 40 Bytes) 

Die AnimOb-Struktur enthält ein Animationsobjekt, welches aus 
verschiedenen AnimComps besteht, in seiner Gesamtheit. Dieses 
Objekt wird mit ‘AddAnimOb ()' dem System zugänglich gemacht 
und kann mit ‘Animate ()“ animiert werden. ‘SortGList ()“ und 
‘DrawGList ()* printen dann das Objekt auf den Bildschirm. 

Offset: Typ: Bezeichnung: Erklärung: 

;— es folgen als erstes Systcmvariablcn- 

000 Long NcxtOb Zeiger auf nächste ‘An- 

imOb“-Struktur (oder Null) 
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004 

Long 

PrevOb 

008 

Long 

Clock 

012 

014 

Word 

Word 

AnOldY 

AnOldX 

nun 

folgen die User-Variablen 

016 

Word 

AnY 

018 

Word 

AnX 

020 

Word 

YVcl 

022 

Word 

XV el 

024 

Word 

YAcccl 

026 

Word 

XAeccl 

028 

Word 

RingYTrans 

030 

Word 

RingXTrans 

032 

036 

Long 

Long 

AnimORoutine 

HeadComp 

040 


END 


Zeiger auf Vorgängerstruktur 
(s.o.) 

enthält Anzahl ’Animate ()*- 
Aufrufe die dieses Objekt 
schon erlebt hat 
alte y-Position 
alte x-Position 


y-Position (Achtung - siehe un¬ 
ten) 

x-Position (Achtung - siehe un¬ 
ten) 

Geschwindigkeit in y-Richtung 
(siche unten) 

Geschwindigkeit in x-Riehtung 
(siehe unten) 

y-Bcschlcunigung (siehe un¬ 

ten) 

x-Bcschlcunigung (siehe un¬ 

ten) 

steigende Beschleunigung in 
Y-Richtung (s. u.) 
steigende Beschleunigung in 
X-Richtung (s. u.) 
siche unten 

Zeiger auf erste ’Ani- 

mComp'-Struktur 

Ende der "AnimOb'-Struktur 
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Erklärungen: 


AnY,AnX (Offset 016 und 018) 

Aktuelle Position des AnimObs. Wird nicht in Punkten bzw. Zei¬ 
len angegeben, sondern aufgrund der Geschwindigkeits- und 
Beschleunigungsvariablen, in 64stel Schritten. Das heißt, man 
muß jeden Wert mit 64 multiplizieren und das Ergebnis kann 
dann in diesen Variablen eingetragen werden. 


YVcl,XVcl (Offset 020 und 022) 

Diese Werte werden bei jedem Aufruf von “Animate ()* zu AnX 
und AnY addiert. Sic werden normal, nicht in 64stel Schritten an¬ 
gegeben. Sie geben die Anzahl Punkte an, um die ein Objekt be¬ 
wegt werden soll. Es sind die Geschwindigkeiten der Objekte. 


YAcccl.XAcccl (Offset 024 und 026) 

Diese Werte werden zu YVel und XVel addiert. Sie werden auch 
normal, und nicht in 64stcl Schritten angegeben. Es ist die Be¬ 
schleunigung der Objekte. 


RingYTrans,RingXTrans (Offset 028 und 030) 

Werte werden direkt zu AnX und AnY addiert. Wenn man diese 
Beschleunigungsart wählt, muß man YVel, XVel, YAccel und 
XAccel mit Null initialisieren. 
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AnimORoutinc (Offset 032) 

Die Routine, deren Adresse hier angegeben wird, wird bei jedem 
‘Animate ()“- Aufruf einmal angesprungen. Man kann so die Posi¬ 
tionen oder dergleichen testen. Die Routine muß mit einem 

,.RTS" enc { en 


HcadComp (Offset 036) 

Hier muß die Adresse der ersten AnimComp-Struktur (Sequence) 
eingetragen werden. Woher sollte sonst das System wissen, aus 
welchen und aus wievielen Sequencen das Objekt besteht. 


Die AnimComp-Struktur (Animationskomponente) stellt die Ver¬ 
bindung zwischen BOB und Animationsobjekt (AnimOb-Struktur) 
her. Besonders bei der Sequenz- animation (RingTrigger) ist sie 
von gro D er Wichtigkeit, denn sie verbindet einzelne Komponenten 
zu einem Ring miteinander und bestimmt, wie lange jede einzel¬ 
ne Sequenz aktiv sein soll. 


AnimComp-Struktur: (Länge = 38 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

000 

Word 

CompFlags 

002 

Word 

Timer 


Erklärung: 

Bit 0=1, dann wird mit Hilfe 
der Zeiger ‘NcxtSeq* und ‘Prev- 
Seq“ eine Ringsequenz vom Sy¬ 
stem durchgeführt. (RingTrig- 
ger-Flag) 

wird mit Wert aus TimeSet ge¬ 
laden und auf Null herunterge¬ 
zählt und dann falls gewünscht 
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004 

Word 

TimeSet 

006 

Long 

Ne xt Comp 

010 

Long 

PrcvComp 

014 

Long 

NcxtSeq 

018 

Long 

PrcvScq 

022 

026 

Long 

Word 

AnimCRoutine 

Y-Trans 

028 

Word 

X-Trans 

030 

Long 

HeadOb 

034 

Long 

AnimBob 

038 


END 


(RingTrigger-Flag = 1) die 

nächste Sequenz dargestellt 
wie lange eine Sequenz darge- 
stcllt werden soll 
Zeiger auf nächste Ani- 

mComp-Struktur (s. u.) 

Zeiger auf Vorgängcr-Ani- 

mComp-Struktur (s. u.) 

Zeiger auf nächste Ani- 

mComp-Stru ktur (s. u.) 

Zeiger auf Vorgängcr-Ani- 

mComp-Struktur (s. u.) 
siche ’AnimORoutine’ 
y-Positon der AnimComp-Struk- 
tur, in 64stcl 

X-Postion der AnimComp- 

Struktur, in 64stel 

Zeiger auf dazugehörige ‘An- 

imOb'-Struktur 

Zeiger auf dazugehörige BOB- 
Struktur 

Ende der AnimComp-Struktur 


Erklärungen: 


CompFlags (Offset 000) 

Wird hier Bit 0 = 1 gesetzt, wird eine Ringsequenee erzeugt. Das 
heißt, um zum Beipiel die Beinbewegung einer Figur in bestimm¬ 
ten Zeitabständen ablaufcn lassen zu können, wird die Timer-Va¬ 
riable mit der gewünschten Zeit gespeist und NextSeq/PrevSeq 
auf die einzelnen Sequencen eingestellt. Nachdem die letzte Se- 
quenec dann dargcstcllt wurde, beginnt das System automatisch 
wieder mit der Ersten. 
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Timer (Offset 002) 

Wird für die Ringsequence benötigt. Diese Variable wird mit "Ti- 
meSet“ geladen. Und nach jedem "Animate ()" Aufruf, einen her¬ 
untergezählt. Ist der Timer bei Null angelangt, wird die nächste 
Sequence dargestellt. 


TimcSct (Offset 004) 

Hier steht der Wert, mit dem der Timer geladen wird. Also wieviel 
"Animate ()"-Aufrufe nötig sind, bis die nächste Sequence darge- 
stcllt wird. 


NcxtComp,PrcvComp (Offset 006 und 010) 

Mit diesen beiden Variablen ist cs möglich, innerhalb eines Ani¬ 
mationsobjektes (AnimOB) mehrere Komponenten (z. B. Arme, 
Beine, Kopf eines Männchens) miteinander zu verbinden, die 
dann durch ‘Animate ()‘ dargcstellt werden. Hier müssen dann die 
Adressen der entsprechenden AnimComp-Strukturcn eingetragen 
werden. 


NcxtScq,PrcvScq (Offset 014 und 018) 

Mit diesen beiden Zeigern, lassen sich z. B. die einzelnen Bewe¬ 
gungen (Sequenzen) eines Armes darstcllcn, die dann durch ‘Ani¬ 
mate ()‘ dargestellt werden. Das ‘RingTrigger’-Flag muß dazu in 
den CompFlags gesetzt sein. ’PrcvScq’ des ersten ‘AnimComp' 
muß auf den letzen ‘AnimComp’ zeigen. ’NextSeq’ des letzten 
‘AnimComp’ muß auf den ersten ‘AnimComp’ zeigen. Diese 
Schritte sind einzuhalten, damit es zu einer Ringsequence kom¬ 
men kann. 
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Y-Trans,X-Trans (Offset 026 und 028) 

Enthalten die Koordinaten der Sequcncc. Sic werden relativ zu 
"AnX" und "AnY" (AnimOb-Struktur) berechnet. Sic werden auch 
in 64stel-Schritten angegeben. Es kann zum Beispiel auftreten, 
das die BitMap so groß ist, daß die Words in dem die Koordinaten 
stehen nicht mehr ausreichen, um diese Werte zu fassen. Um 
größere Positoncn bei ‘AnX* und ‘AnY‘ zu erreichen, setzt man 
den Mehrwert dann einfach in ‘XTrans“ und ‘YTrans*. 


HcadOb (Offset 030) 

Hier muß die Adresse der dazugehörigen AnimOb-Struktur stehen, 
weil sonst das System nicht weiß, zu welchem Objekt nun diese 
Sequence gehört. 


AnimBob (Offset 034) 

Hier müssen sie die Adresse der BOB-Struktur eintragen, welche 
die entsprechende Grafik für die Sequence enthält. 


Das nachfolgende Beispiel-Listing erzeugt einen BOB im "dou- 
ble-bouffering" Modus, der vom System animiert wird. Mit der 
rechten Maustaste kann das Programm wieder beendet werden. Es 
wurde auch kein Screen, sondern ein primitives Grafik-Display 
über die Grafik-Routinen erzeugt. 
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- Programmname = AnimateBOB - 

...rechte Maustaste = Ende.— 

- erzeugt einen double-bouffering BOB - 

-der VOi System animiert wird- 

breite = 320 ; Bitmapbreite (muß durch 8 teilbar sein) 

höhe = 256 ; Bitmaphöhe 

tiefe = 5 ; Anzahl Bitplanes 

-Librarys öffnen- 


bsr openlibrarys 

- Speicher für Bitmaps reservieren 


move. 1 #( (breite/8 ) x tiefe , 'höhe x 2) ,d0 

move.l #$10002,dl 

move.l 4,a6 

jsr -198(a6) 

move.I dO,displaybase 

tst.l dO 

beq exit 


2 gleichgroße Bitmaps 
Chip+ClearMEM 
exeebasis 
AllocMem () 

Basis speichern 
wenn Error, 
dann Exit 


Bitmap Pointer errechnen 2x 


move.1 displaybase,aO 

move.1 #bitmapO,a1 

bsr search_ptr 

move.1 displaybase aO 

add. 1 #((breite/8) x höhe x tiefe 1 ,a0 

move.l #bitmapl,al 

bsr search_ptr 


; Basis des Display 
; BitmapO-Adresse 
; BitmapPtr-Adressen errechnen 
: Basis des Display 
; plus einer Screengröße 
: Bitmapl-Adresse 
; BitmapPtr-Adressen errechnen 
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- a lt en View speichern 

move.l intbase,a6 
jsr -294(a6) 
move.l dO.oldview 

- View-Struktur init. - 

move.l gfxbase.aö 
move.l Iview.al 
jsr -360(a6) 

- ViewPort-Struktur ini 

move.l gfxbase,a6 
move.l Iviewport.aO 

jsr -204(a6) 

- Viewport-Parameter in 

move.w #breite,viewport+24 
move.w Ihöhe,viewport+26 

- Bitmap-Struktur init. 

move.l gf xbase,a6 
move.l IbitmapO.aO 
move. 1 ftiefe,dO 
move.l Ibreite.dl 
move.l Ihöhe,d2 
jsr -390(a6) 
move.l gfxbase,a6 
move.l Ibitmapl,a0 
move.l Itiefe.dO 
move.l Ibreite.dl 


intutionbasis 
ViewAdress () 
alten View speichern 


: gfxbasis 

: Zeiger auf neue View-Struktur 
: InitView (1 


: gfxbasis 

: Zeiger auf neue Viewport- 
: Struktur 
: InitVPort () 


: Breite vom ViewPort 
: Höhe vom ViewPort 

0/1 —-- 

: gfxbase 

: BitmapO-Struktur 
: Depth 
: width 
: heigth 
: InitBitMap () 

; gfxbasis 
: Bitmapl-Struktur 
: Depth 
: Width 
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move.l #höhe,d2 : Heigth 

jsr -390(a6) ; InitBitMap () 

- R aS t er p 0r t init. - 


move.l #rastport,al 

move.l gfxbase.aö 
jsr -196(a6 ) 

- Col 0r M a p-St rU kt Ur 

move.l gfxbase,a6 
move.l #32,dO 
jsr -570(a6) 
move.l dO colormap 
tst.l dO 
beq exit 


: Zeiger auf neue RastPort- 

■ Struktur 
: gfxbasis 

: InitRastPort I) 

vom System anlegen lassen - 

: gfxbasis 
: 32 Farben 
: GetColorMap () 

: Adresse speichern 

■ wenn Error, 

• dann Exit 


Strukturen miteinander verbinden 


move.l Irasinfo,viewport+36 
move.l colormap,viewport+4 
move.l IbitmapO.rasinfo+4 
move.l #bitmap0.rastport+4 
move.l tviewport,view 


Rasinfo in ViewPort 
Colormap in ViewPort 
BitmapO in Rasinfo 
BitmapO in RastPort 
ViewPort in View 


- Neue Copperliste erzeugen und starten - 

jsr copperstartlpc) 

move.w #1,copper : Copperstatus = 1 , es wurden 

: neue Copperlisten erstellt 

bsr initbob : GelSystem initialisieren 
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bsr printtext 
bsr changebitmaps 
bsr printtext 
bsr changebitmaps 
bsr sortglist 
bsr drawglist 

oain: 

btst #10,Sdff0!6 
beq exit 

bsr changebitmaps 
bsr movejcob 
bsr sortglist 
bsr drawglist 
bsr no_f1 ackern 
bsr copperstart 
bra main 

exit: 

move.l oldview.al 
cmp.l 10,al 
beq exitl 
move. 1 gfxbase.aö 
jsr -222(a6) 

exitl: 

move.l colormap.aO 
cmp.l #0,a0 
beq exitla 
move.l gfxbase.aö 
jsr -576(a6) 


• Text ausgeben in BitmapO 
: BitMaps vertauschen 
: Text ausgeben auch in Bitmapl 

■ Gel-Liste sortieren 
: und ausgeben (Start-Positionen) 


; rechte Maustaste ? 

: Bitmaps vertauschen 
■ BOB bewegen 
: Gel-Liste sortieren 
: und ausgeben 
: auf Austastlücke warten 
: neue Copperliste aktivieren 


; auf alte Copperlist umschalten 
: wenn eine vorhanden ist? 

: wenn nicht, dann weiter 
: alte Copperl ist starten 
; Loadview () 


: wurde eine 
: ColorMap angelegt 1 
: wenn nicht, dann weiter 
: ColorMap wieder freigeben 
; FreeColorMap () 
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— Speicher der einzelnen Copperlisten wieder freigeben - 


exitla: 

emp.w tO.copper 

beq exitlb 
move.l ifviewport.aO 

move.l gfxbase,a6 
jsr -540(a6) 
move.l view+4,aO 
move.l gf xbase.a6 
jsr -564(a6) 

exitlb: 

move.l displaybase,al 
cmp.l #0,al 
beq exit2 
move.l #( (breite/6)*tiefe*höhe* 
move.l 4,a6 
jsr -210(a6) 

exit2: 

bsr closelibrarys 
rts 


: wurden neue Copperlisten er 
: stel lt, und somit 
; Speicher vom System belegt? 

: erzeugte Copperlisten wieder 
: freigeben 

; FreeVPortCopLists () 


; FreeCprList () 


; wurde Speicher 
; für Bitmaps reserviert ? 
; wenn nicht, dann weiter 
),dO ; Size 

; exeebasis 
; FreeMem () 


; Librarys schließen 
; Ende 


;- Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l Igfxname.al 
clr.l dO 
jsr -552 (a6) 
move.l dO,gf xbase 
move.l 4,a6 
move.l #intname,al 


: Graphics 
: OpenLibrary () 


: Intuition 
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clr.l dO 

jsr -5521a61 : Open Library i I 

move.l dO,intbase 

rts 


;-Librarys schließen- 

closelibrarys: 
move.l 4,a6 
move. 1 gfxbase al 

jsr -4141a6) : CloseLibary i I 

move. 1 4 .ao 
move.l intbase,al 

jsr -414(a6) : CloseLibary {1 

rts 


Einen Text printen, damit man was sieht 


printtext: 
move.1 Irastport,a0 
move. 1 itextl ,al 
move.1 #00 dO 
move.l #50,dl 
move.l intbase.ao 
jsr -2161a61 
rts 


RastPort-Struktur 

Text-Struktur 


PrintIText l) 


100%iges No Flackern der Bobs 


no_flackern: 
move. 1 gfxbase ao 

jsr -2701a6) : WaitTOF 

rts 
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Copperlisten konstruieren 


copperStart: 

move.l gfxbase,a6 
move.l iview.aO 
move.I Iviewport.al 
jsr -2l6(a6) 


: gfxbasis 
; View-Struktur 
: ViewPort-Struktur 
: MakeVport () 


Copperlisten zu einer Copperliste zusannnenfassen 


move. 1 gf xbase,a6 
move.l iview.al 
jsr -210(a6) 


: gfxbasis 
: View-Struktur 
: MrgCop I) 


Neue Copperliste starten 


move.l gfxbase,a6 
move.l Iview.al 
jsr -222Ia6) 
rts 


gfxbasis 
View-Struktur 
Loadview () 


Gelsystem init. 


initbob: 

move.l #dummyl,aO 
move.l #dummy2..al 
move.l #gelsinfo.a2 
move.l gfxbase,a6 
jsr -120(a61 

move.l Irastport.aO 
move.l Igelsinfo.20(a0l 

move.l Ivsprite aO 
move.l gfxbase,a6 
jsr -126(a6) 


Dummyl 

Dummy2 

Gelsinfo-Struktur 
gfxbasis 
InitGels (1 


: Gelsystem in Rastport 

: VSprite-Struktur 
: gfxbasis 
: InitMasks I1 
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move.l #animob,aO 
move.l #headob,al 
move.l #rastport,a2 
move.l gfxbase,a6 
jsr -156(a6) 
rts 


AnimOB-Struktur 

Zeiger auf letztes AnimOB 

RastPort-Struktur 

gfxbasis 

AddAnimOb () 


Bob bewegen 


■ove_bob: 
move.l #animob,aO 
move.w 10(a0) ,d0 
emp.w #320*64,dO 
bpi aneg 

emp.w #-10*64,dO 
bpi noneg 


AnimOb-Strukur 
AnX-Position 
schon bei 320 ? 

wenn ja, dann Richtungswechsel 

schon bei -10 1 

wenn nicht, dann weiter 


aneg: 

neg.w 22(aO) ; XVel = Vorzeichen wechseln 


noneg: 

move.w 16(aO),dO 
emp.w #256*64,dO 
bpi aneg2 
emp.w #-10*64,dO 
bpi noneg2 

aneg2: 

neg.w 20(a0) 
noneg2: 

move.l #headob,a0 
move.l #rastport,al 
move.l gfxbase,a6 
jsr -162(a6) 
rts 


AnY-Position 

schon bei 256 ? 

wenn ja, Richtungswechsel 

schon bei -10 ? 

wenn nicht, weiter 


; YVel = Vorzeichen wechseln 


Zeiger auf letztes AnimOb 
RastPort-Struktur 
gfxbasis 
Animate () 
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Displays li Rasterport vertauschen 


changebitiaps: 
move.l rastport+4,a0 
cmp.l #bitmapO,aO 
bne no 

move.l #bitmapl,rastport+4 
move.l #bitmapl .rasinfo+4 
rts 

no: 

move.l #bitmapO.rastport+4 
move.l #bitmapO.rasinfo+4 
rts 

;-- Bobs anzeigen - 

sortglist: 
move.l #rastport,a1 
move.l gfxbase,a6 
jsr -150(a6) 
rts 

drawglist: 
move.l #rastport,al 
move.l #viewport,aO 
move.l gfxbase,a6 
jsr -114(a6) 
rts 


: Bitmap-Struktur aus RastPort 
: 1iegt BitmapO vor ? 

: wenn nicht, dann no 
: sonst Bitmap!-Struktur 
: aktivieren 


: sonst BitmapO-Struktur 
: aktivieren 


; RastPort-Struktur 
: gfxbasis 
: SortGList 0 


: RastPort-Struktur 
; ViewPort-Struktur 
; gfxbasis 
; DrawGList () 
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Bitmappointer errechnen 


search_ptr: 

move.l #breite/6.dO 
mulu thöhe.dO 
move.w ttiefe-1,dl 
move.l #6.d2 

Ptr_loop: 

move.I aO, lal ,d21 

add.l dO.aO 
add.l #4 ,d2 
dbra dl ,Ptr_loop 
rts 

;-Parameter- 

gfxname: dc.b "graphics.1ibrary",0 
even 

intname: dc.b "intuition . 1ibrary",0 
even 

gfxbase: dc.l 0 
intbase: dc.l 0 
oldview: dc.l 0 
colormap: dc.l 0 

view: blk.b 16,0 
viewport: blk.b 40,0 
rasinfo: blk.b 12,0 
rastport: blk.b 100,0 
bitmapO: blk.b 40.0 
bitmapl: blk.b 40.0 


AO = Zeiger auf freien Speicher 
Ai = Zeiger auf Bitmapxstruk. 


In DO = große einer Bitmap 
In Dl = Anzahl Bitmaps 


Ptr. auf Bitmaps in Bit- 
mapOstruk. saven 
eine Map weiter gehen 
Pointer-Offset plus 4 
Schleife bis alle Pointer durch 


Graphics-Basis 

Intuition-Basis 

alte View-Adresse 

Zeiger auf ColorMap-Struktur 

View-Struktur 
ViewPort-Struktur 
Raslnfo-Sturktur 
RastPort-Struktur 
Bi tmapO-Struktur 
Bitmapl-Struktur 


216 










8. Kapitel 


Das Animationssystem 


copper: de .w 0 
displaybase: dc.l 0 
lextl: 

de.b 1.0,0,0 
de.w 0,0 
dc.l 0,tit1e,0 

title: dc.b "DoubleBuffer BOB (rechte Maustaste)”.0 
even 

speedx: dc.w 1 
speedy: dc.w 1 
buffer: dc.l 0 

headob: dc.l 0 : Adresse des zuletzt eingefügten AnimOb 

dummyl: blk.b 56,0 
dummy2: blk.b 56,0 

gelsinfo: : ab hier Gelslnfo-Struktur 

dc.b 0.0 
dc.l 0,0 
dc.l nextline 
dc.l lastcolor 
de.1 col lhandler 
dc.w 0.0,00 
dc.l 0.0 

nextline: blk.w 6.0 
lastcolor: blk.w 32.0 
collhandler: blk.l 16.0 


animob: 

dc.l 0.0 
dc.l 0 
dc.w 0,0 

de .w 64*10,64*20 
de.w 35,35 
dc.w 0,0 
dc.w 0.0 
dc.l 0 

dc.l animcomp 


: ab hier AnimOb-Struktur 
: NextOb/PrevOb 
: Clock 

; AnOldY/AnOldX 

AnY.AnX - Koordinaten vom Objekt 

YVel.XVel - Geschwindigkeit 

YAccel,XAcce1 - keine Beschleunigung 

RingYTrans.RingXTrans 

keine AnimORoutine 

HeadComp - Zeiger auf AnimComp-Struktur 
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aniocoop: 

dc.w 0 
dc.w 0,0 
de .1 0,0 
de. 1 0,0 
de. 1 0 
dc.w 0,0 
dc.l animob 
de.I bob 


; ab hier AnimComp-Struktur 
; CompFlags = keine RingSequence 
; Timer,TimeSet = Null 
; NextComp.PrevComp 
; NextSeq.PrevSeq 
: AnimCRoutine = keine 
; Y-Trans,X-Trans 

; Zeiger auf dazugehörige AnimOb-Struktur 
: Zeiger auf dazugehörige BOB-Struktur 


bob: : ab hier BOB-Struktur 

dc.w 2 : Flag: BOBisComp 

dc.l savebuffer : Puffer für Hintergrundspeicherung 

dc.l imageshadow ; Maskenpuffer 

de.1 0.0 : Priorität egal 

dc.l vsprite ; Zeiger auf dazugehörige VSprite-Struktur 

dc.l animcomp ; Zeiger auf dazugehörige AnimComp-Struktur 

dc.l dbuffer ; Zeiger auf DBufPacket für double-boufering 


vsprite: 

dc.l 0.0 
dc.l 0.0 
dc.w 0.0 
dc.w 6 
dc.w 0,0 
dc.w 16.1 
dc.w 2 
dc.w 0.0 
dc.l imagedata 
dc.l borderline 
dc.l imageshadow 
dc.l 0 
de.1 bob 
dc.b 3,0 


; ab hier VSprite-Struktur 
: Next/Prev-VSprite 
: Draw/Clear-Path 
: Old Y.X 

: Flag: SaveBack/Overlay 
: Y,X-Position wird in AnimObStruktur gesetzt 
; Höhe = 16 und Breite = 1 Word 
: Tiefe = 2 BitMaps 
: MeMask/HitMask 
; Grafikdaten 
: Borderl ine 

: CollMask = Imageshadow 
: SprColors 

: Zeiger auf BOB-Struktur 
; PlanePick/PlaneOnOff 
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dbuffer: 

dc.w 0,0 
de. 1 0 

de .1 bufbuf fer 
de. 1 0 

ioagedata: 

dc.w 0 . 0 , 0 , 0 ,$c 60 ,$c 60 ,$c 60 .$ 600 c,$ 600 c.$ 3016 ,$ 3016 ,Sie 70 ,$fe 0,$360 

dc.w 0,0,$7c0,$lff0,$3ff6,$7ffc,$7ffc,$fffe.$fffe,$fffe,$fffe,$fffe 
dc.w $7ffc,$7ffc,$3ff6,$lff0,$7c0,$0 

savebuffer: blk.b 16 Ä 1^2 Ä 5,0 

bufbuffer: blk.b 16*1*2*5,0 ; genauso groß wie SaveBuffer 

imageshadow: blk.b 16*1*2,0 

borderline: blk.b 1*2,0 ; Size = Bobbreite*2 

END 

.. Listingende..-. 


: ab hier DBufPacket-Struktur 

: Puffer zum speichern des zweiten Hinter- 
: grundes 
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8.7 Prioritäten von Grafikobjekten 

In unseren Beispic 11istings haben bisher immer nur einen BOB 
erzeugt. Dabei brauchten wir uns um die Priorität nicht zu 
kümmern. Sobald man aber zwei oder mehr BOBs aufeinmal dar- 
stcllcn will, ist die Priorität schon von Bedeutung. 

Denn wenn zwei BOBs bewegt werden und sie sich überlappen, 
kann cs passieren, daß mal der eine oder mal der andere im Vor¬ 
dergrund steht. Und daß sicht nun wirklich nicht besonders schön 
aus. Stellen sie sich mal vor, zwei Flugzeuge überlappen sieh 
beim vorbeifliegen und dabei tritt dann dieser unschöne Effekt 
auf. Dieses würde überhaupt nicht der Realität entsprechen. 

Die Priorität eines BOBs läßt sich mit den Zeigern "Before" und 
“After” in der BOB-Struktur cinstellen. Diese zeigen dann auf die 
BOB-Strukturen, die vor und nach diesen BOB bearbeitet werden 
sollen. Dabei ist zu beachten, daß "After" des ersten BOBs auf 
den zweiten BOB zeigt und das "Before" vom zweiten BOB auf 
den ersten BOB zeigt. Und diese Zeiger sind nach "AddBOB ()" 
zu setzen, da die Routine diese Zeiger löscht. 

Die Prioritäten von VSprites stehen aufgrund der Hardware schon 
fest. Dabei gilt, das Sprite mit der höchsten Priorität befindet sich 
vor allen anderen. Es kann also nicht von anderen VSprites ver¬ 
deckt werden. Die Nummer bestimmt dabei die Priorität, die ein 
VSpritc besitzt. Je kleiner die Nummer, desto größer die Priorität. 
Das Sprite mit der Nummer Null besitzt dementsprechend die 
höchste Priorität. Danach folgt Sprite 1 usw. 
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8.8 Collisionsabfrage 

Um Kollisionen zwischen zwei Objekten festzustellen, muß man 
als erstes die beiden Variablen 'Borderline' und 'CollMask' inti- 
tialisieren . 

In 'Borderline' steht das logisch "ODER" der ersten Zeile eines 
Grafikobjekts. Sie wird zur schnelleren Collisionskontrolle 
benötigt. Denn erst wenn durch Bordcrline eine mögliche Collisi¬ 
on fcstgestellt wurde, wird mit "CollMask" auf eine Collision ge¬ 
testet. 

Der Puffer der von ihnen reserviert werden muß, beträgt bei 
VSpritcs ein Word, bei BOBs entspricht er der Breite die in 
"Width" (VSpritc- Struktur) steht. 

Überall wo ein Punkt in der "CollMask“ gesetzt ist, wird eine 
Collision festgcstcllt. In der Collisionsmaske wird das logisch 
"ODER" aller Bitplanes des BOBs abgelegt. Auch dieser Puffer 
muß von ihnen reserviert werden. Er berechnet sich bei VSprites 
aus dem Produkt zwischen 'Höhe (Heigth) * 2'. Bei BOBs aus dem 
Produkt zwischen 'Höhe (Heigth) * Breite (Width) * 2'. Man kann 
auch den ‘CollMask'-Zeiger auf den 'ImageShadow'-Puffer zeigen 
lassen, denn Beide sind identisch. Außerdem spart man dadurch 
Speicher. Wollen sie jedoch nachträglich die Collisionsmaskc än¬ 
dern, können sic diesen Trick jedoch nicht anwenden. 


Zur Verdeutlichung der Pufferberechnungen, das Ganze nochmal 
in Kurzform: 

a) VSprites: (Ergebnisse in Bytes) 

BorderlineSizc = 1 Word (2 Bytes) CollMaskSize = Spritchöhc * 2 
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b) BOBs: (Ergebnisse in Bytes) 

BorderlineSize = Bobbreite * 2 
CollMaskSize = Bobhöhe * Bobbreite * 2 

Durch aufrufen der Routine ‘InitMasks ()“ wird dann, der von ih¬ 
nen zuvor reservierte Puffer, mit den entsprechenden Masken 
gefüllt. 

Das System kann zwischen 16 verschiedene Collisionsroutinen 
unterscheiden. Die Collsionsroutine 0 ist für Randberührungen. 
Die anderen 15 lassen sich für Collisioncn zwischen zwei Objek¬ 
ten nutzen. 

Welche Routine nun vom System bei einer Collision angesprun¬ 
gen wird, hängt von den Werten in 'MeMask' und 'HitMask' ab. 
(Siehe VSprite-Struktur) Jedes Bit in einer der Masken, steht für 
eine Collisionsroutine. 

z. B. BitO = Collisionsroutine 0 (Rand-Collision). 

Mit 'MeMask' gibt man jetzt jedem Objekt eine Nummer von 
0-15, und mit ‘HitMask" gibt man die Nummer an, mit welchen 
Objekt diese Objekt nicht zusammenstoßen darf, denn dann wird 
die Collsionsroutine mit der Nummer in ‘HitMask" angesprungen. 

Wenn z. B. der Feind in ‘MeMask' Bit 2 = 1 ist, und der Spieler in 
‘HitMask' Bit 2 gesetzt hat, und diese beiden Objekte stoßen zu¬ 
sammen, kommt es zu einer Collision und die Collisionsroutinc 2 
wird angesprungen. Für Randcollsioncn müssen die Ränder in der 
‘Gelslnfo'-Struktur eingestellt werden (leftmost, rightmost, top¬ 
most und bottommost). Außerdem muß der 'CollHandlcr' auf einen 
Puffer von 16 Langwrötcrn zeigen. 

Bevor aber eine Collsionsroutine angesprungen werden kann, muß 
crstmal diese Routine ins System eingebunden werden. Dieses cr- 
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ledigt die Routine ‘SetCollision ()“ . Und mit der Routine ‘DoCol- 
lision ()‘ lassen sich dann Collsioncn abfragen. Hier eine Be¬ 
schreibung der beiden Routienen: 


Routine 

Library 
Of f sei 
Parameter 


Rückgabe : 
Erklärung: 


SetCollision (Type,Routine,Gelsinfo) (DO,AO,Al) 

graphics. 1ibrary 
-144 = -S90 

DO = Nummer der Collisionsroutine (0-15) 

AO = Zeiger auf Collisionsroutine die mit einem RTS endet 

Al = Zeiger auf Gelslnfo-Struktur 

keine 

Diese Routine init. eine Col1sionsroutine mit angegebener 
Nummer. Die Adresse der Colisionsroutine wird in den 
'Col[Händler'- Puffer eingetragen. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


DoCollision (RastPort) (Al) 

graphics.1ibrary 
-108 = -$6c 

Al = Zeiger auf RasterPort-Struktur 
keine 

Diese Routine testet ob eine Collision stattgefunden hat, 
und springt dann in die entsprechende Collisionsroutine. 
Bei BOB-BOB-Col1isionen wird der angesprungenen Routine 
in Al die Adresse des Oberen VSprites und in A2 die des 
Unteren VSprites übergeben. Bei Randberührungen, wird der 
angesprungenen Collisionsroutine (Nummer Null) in A3 die 
Adresse des VSprites übergeben. 
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Nachdem man mit 'SetCollision ()' die Collsionsroutinc einge¬ 
bunden hat. Und die entsprechenden Varaiblen (McMask, Hit- 
Mask, BordcrLinc, CollMask) init. hat, testet man eine Collision 
wie folgt: 


1. j sr 'SortGList ()‘ 

2. j sr 'DoCollision ()’ 

3. jsr 'DrawGList ()' 

Ich muß sic hier leider darauf hinweisen, daß die 'DoCollision ()'- 
Routine nicht ganz einwandfrei funktioniert. Jedoch können sie 
durch mehrmaliges aufrufen der Routine diesen Fehler weitge- 
henst ausschalten. 

Das letzte folgende Listing in diesem Kapitel, zeigt die Program¬ 
mierung zweier BOBs, die im doublc-buffcring-modus laufen. 
Wenn beide Objekte miteinander zusammenstoßen, blinkt der 
Hintergrund auf. Außerdem bekommt jeder BOB eine Priorität zu- 
gctcilt. Mit der rechten Maustaste kann das Programm wieder 
beendet werden. Diesmal werden die BOBs allerdings über einen 
Screen bewegt. Wodurch das ruckein noch weiter ausgeschaltet 
wird. 


- Prograaanaae = BOB-Col1ision - 

- erzeugt zwei BOBs ait Priorität - 

- un( j collisionsabfrage ia- 

- double-buffering und werden - 

- V0B systea aniaiert -- 

-- rechte Maustaste = Ende - 

breite = 320 : Bitmapbreite (muß durch 8 teilbar sein) 

höhe = 256 : Bitmaphöhe 

tiefe = 5 : Anzahl Bitplanes 
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- Lib rar y S öffnen 

bsr openl ibrarys 


Speicher für Bitmaps reservieren 


move.l II (breite/6 ) x tiefe x höhe >t 2) ,d0 

move.1 #Sl0002,dl 

move.l 4,aß 

jsr -19ö(a6) 

move.l dO,displaybase 

tst.l dO 

beq exit 


2 gleichgroße Bitmaps 
Chip+ClearMEM 
exeebasis 
AllocMem l) 

Basis speichern 
wenn Error, 
dann Exit 


Bitmap Pointer errechnen 2x 


move.l displaybase,a0 

move.l IbitmapO.al 

bsr search_ptr 

move.l displaybase.aO 

add.1 #1(breite/6 ) x höhe*tiefe),a0 

move.l Ibitmapl ,al 

bsr search_ptr 


Basis des Display 
BitmapO-Adresse 
BitmapPtr-Adressen errechnen 
Basis des Display 
plus einer Screengröße 
Bitmapl-Adresse 
BitmapPtr-Adressen errechnen 


Bitmap-Struktur init. 0/1 


move.l gfxbase.aß 
move.l IbitmapO.aO 
move.l Itiefe.dO 
move.l Ibreite.dl 
move.l #höhe,d2 
jsr -390(aß) 
move.l gfxbase.aß 
move.l Ibitmapl.aO 
move.l Itiefe.dO 
move.1 Ibreite.dl 


gf xbase 

BitmapO-Struktur 

Depth 

width 

heigth 

InitBitMap i ) 
gfxbasis 

Bitmapl-Struktur 

Depth 

Width 
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move.l #höhe,d2 
jsr -390(a6) 

—.- Screen öffnen 

move.l intbase,a6 
move.l #newscreen,aO 
jsr -198(a6) 
move.l dO,screenhd 
tst.l dO 
beq exit 
move.l dO,aO 
add.l #44.aO 
move.l aO,viewport 
move.l d0,a0 
add.l #64,aO 
move.l aO.rastport 

bsr initbob 
bsr setcol1ision 
bsr changebitmaps 
bsr printtext 
bsr changebitmaps 
bsr printtext 
bsr sortglist 
bsr drawglist 


: Heigth 
; InitBitMap () 


: intbase 
; OSArgs-Struktur 
; OpenScreen () 

; Screen-Struktur speichern 
: Error ? 

: wenn ja, dann Ende 
: Screenbasis nach AO 
: plus 44 

; ViewPort-Adresse speichern 
; Screenbasis nach AO 
: plus 64 

: RastPort-Adresse speichern 

: GelSystem initialisieren 
; Col1isionsroutine setzen 
: Bitmaps vertauschen 
: Text ausgeben in Bitmapl 
: BitMaps vertauschen 
: Text ausgeben auch in Bitmapl 
; Gel-Liste sortieren 
: und ausgeben (Start-Positionen) 


oain: 

btst #10,Sdff016 
beq exit 

bsr changebitmaps 
bsr move_bob 
bsr sortgl ist 
move.l rastport,al 
move.l gfxbase.aö 
jsr -108(a6) 


rechte Maustaste 1 

Bitmaps vertauschen 

BOB bewegen 

Gel-Liste sortieren 

RastPort-Struktur 

gfxbase 

DoColIision I) 
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bsr drawgl ist 
bsr no_fTackern 
move.l intbase,a6 
jsr -364(361 
bra main 

exit: 

move.l screenhd.aO 
cmp.l #0,a0 
beq exitl 
move.l intbase,a6 
jsr -66(a61 

exitl: 

move.l displaybase.al 
cmp.l 10,al 
beq exit2 

move.l #((breite/6) x tiefe x hö 
move.l 4,a6 
jsr -210(a61 

exit2: 

bsr closelibrarys 
rts 


: und ausgeben 
: auf Austastlücke warten 

: RemakeDisp1ay () 


: wurde ein 
: Screen geöffnet 1 
: wenn nicht, dann weiter 
: sonst Screen schließen 
: CloseScreen (I 


: wurde Speicher 
; für Bitmaps reserviert ? 
; wenn nicht, dann weiter 
*2) ,d0 ; Size 

: exeebasis 
; FreeMem () 


Librarys schließen 
Ende 


;-Librarys öffnen 

openlibrarys: 

move.l 4,a6 
move.l #gfxname,al 
clr. 1 dO 
jsr -552(a6) 
move.l dO.gfxbase 
move.l 4,a6 
move.l #intname,al 
clr.l dO 


; Graphics 
: OpenLibrary () 


; Intuition 
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jsr -552(ao) : OpenLibrary (I 

move.l dO.intbase 

rts 


;-Librarys schließen- 

closelibrarys: 
move.l 4.a6 
move.l gfxbase.al 

jsr -414(a6) : CloseLibary !) 

move.l 4,a6 
move.l intbase.al 

jsr -4141ao> - CloseLibary (l 

rts 


;- Col1isonsroutine setzen 

setcol1ision: 
move.ii! #1 ,dO 

move.l #col1isions_routine,aO 
move.l #gelsinfo.al 
move.1 gf xbase,a6 
jsr -144(a6) 

move.w #2,dO 

move.l #col1isions_routine,aO 

move.l Igelsinfo.al 

move.l gfxbase.ao 

jsr -144(a6) 

rts 


Routine 1 (MeMask/HitMask = 2) 

Routine mit RTS 

Gelslnfo-Struktur 

gfxbasis 

SetCol1ision (I 

Routine 2 (MeMask/HitMask = 4) 

Routine mit RTS 

Gelslnfo-Struktur 

gfxbasis 

SetCol1ision () 
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;-Collisionsroutine welche bei Collision angesprungen wird 

;- Al = Oberer VSprite , A2 = Unterer VSprite - 

col1isions_routine 

move.w #4095,dO 
coll_loop: 
move.w dO.SdfflöO 
dbra dO.col1_1oop 
rts 

;- Einen Text printen, damit man was sieht 

printtext: 

move.l rastport.aO 
move.l #tex11,a1 
move.l #00,dO 
move.l #50,dl 
move.l intbase,a6 
jsr -2161a6) 
rts 

•-lOOliges No Flackern der Bobs — 

no_fl ackern: 

move.l gfxbase.aö 

jsr -270(a6) : WaitTOF 

rts 

;..- Gelsystem init. - 

initbob: 

move.l #dummyl,a0 
move.l #dummy2,al 
move.l #ge1sinfo,a2 
move.l gfxbase a6 
jsr -120(a6) 


Dummy2 

Gelslnfo-Struktur 

gfxbasis 


: RastPort-Struktur 
: Text-Struktur 


Pr int I Text l ) 


: Farb-Zähler laden 

: Hintergrundfarbe eintragen 
: Farb-Zähler um eins erniedrigen 
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move.l rastport,aO 
move.l Igelsinfo.20(aO) 

Gelsystem in Rastport 

move.1 tvspritel,aO 
move.l gfxbase,a6 
jsr -126(a6) 

VSprite-Struktur 

gfxbasis 

InitMasks (1 von VSpritel 

move.l Ivsprite2,a0 
move.l gf xbase, a 6 
jsr -126(a6) 

VSprite-Struktur 

gfxbasis 

InitMasks () von VSprite2 

move.l lanimobl,aO 
move.l Iheadob,a1 
move.l rastport,a2 
move.l gf xbase,a6 
jsr -156(a6) 
move.l lanimobl.headob 

AnimOB-Struktur 

Zeiger auf letztes AnimOB 

RastPort-Struktur 

gfxbasis 

AddAnimOb (1 vom Objekt 1 
Wichtig - letztes AnimOb 

move.l Ianimob2,a0 
move.l Iheadob,al 
move.l rastport,a2 
move.l gf xbase, a 6 
jsr -156(a6) 
rts 

AnimOB-Struktur 

Zeiger auf letztes AnimOB 

RastPort-Struktur 

gfxbasis 

AddAnimOb ( ) vom Objekt 1 


;- Bob bewegen 

nove_bob: 

move.I lanimobl ,a0 
move.w 18(a0),d0 
emp.w #320 x 6 / l .dO 
bpi aneg 

emp.w |-10 x 64,d0 
bpi noneg 
aneg: 

neg.w 22(a0) 


AnimOb-Strukur von Objekt 1 

AnX-Position 

schon bei 320 ? 

wenn ja, dann Richtungswechsel 

schon bei -10 0 

wenn nicht, dann weiter 

XVel = Vorzeichen wechseln 
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noneg: 

move.l #animob2,aO 
move.w 16(a 0I,d0 
cmp.w |320 x 64,dO 
bpi aneg2 
cmp.w #-l 0*64 ,d0 
bpi noneg2 

aneg2: 

neg.w 22(a0) 

noneg2: 

move.l theadob.aO 
move.l rastport,al 
move.l gfxbase,a6 
jsr -162(a61 
rts 


: AnimOb-Strukur von Objekt 2 
: AnX-Position 
: schon bei 320 ? 

: wenn ja, dann Richtungswechsel 
; schon bei -10 ? 

; wenn nicht, dann weiter 


; XVel = Vorzeichen wechseln 

: Zeiger auf letztes AnimOb 
: RastPort-Struktur 
; gfxbasis 
; Animale () 


•-Displays ii Rasterport vertauschen- 

changebitiaps: 

move.l rastport,al 
move.l viewport,aO 

move.l 36(aO),aO ; Zeiger auf Rasinfo 

cmp.l #bitmapO,4(aO) 
bne no 

move.l jfbitmapl,4(aO) 
move.l jfbitmapl,4(al) 
rts 

no: 

move.l #bitmapO,4(aO) 
move.l #bitmapO,4(al ) 
rts 
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Bobs anzeigen 


sortglist: 
move.l rastport.al 
move.l gfxbase.ao 
jsr -I50(a6) 
rts 

drawglist: 

move.l rastport.al 
move.l viewport,aO 
move.l gfxbase.aö 
jsr -114(a6) 
rts 


RastPort-Struktur 
gfxbasis 
SortGList (1 


RastPort-Struktur 
ViewPort-Struktur 
gfxbasis 
DrawGList I) 


Zeiger auf freien Speicher 
Zeiger auf Bitmapxstruk. 


;- Bitmappointer errechnen 

: AO = 

: Al = 

search_ptr: 

move.l #breite/6 ,d0 
mulu #höhe,dO 
move.w jftiefe-1,dl 
move.l #6,d2 

Ptrjoop: 

move. 1 aO, (al ,d21 

add.l dO,aO 
add.l #4,d2 
dbra dl , Ptr_ 1 oop 
rts 


In DO = Größe einer Bitmap 
In Dl = Anzahl Bitmaps 


Ptr. auf Bitmaps in Bit- 
mapOstruk. saven 
eine Map weiter gehen 
Pointer-Offset plus 4 
Schleife bis alle Pointer durch 
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;-Paraneter- 

gfxname: dc.b "graphics.Iibrary",0 
even 

intname: dc.b "intuition.Iibrary" 0 
even 

gfxbase: dc.l 0 : Graphics-Basis 

intbase: dc.l 0 : Intuition-Basis 

screenhd: dc.l 0 

newscreen: 

de.w 0,0,breite,höhe,tiefe 
dc.b 1,0 
dc.w 0,Sl40 
dc.l 0.0.0.bitmapO 

viewport: dc.l 0 
rastport: dc.l 0 
bitmapO: blk.b 40.0 
bitmapl: blk.b 40,0 

displaybase: dc.l 0 
textl: 

dc.b 1.0,0.0 
dc.w 0,0 
dc.l 0.title,0 
title: dc.b "DoubleBuffer BOB (rechte Maustaste)" ,0 
even 

headob: dc.l 0 : Adresse des zuletzt eingefügten 

■ AnimOb 

dummyl: blk.b 56.0 
dummyZ: blk.b 56.0 


: CustomBitMap (Wichtig) 


Zeiger auf ViewPort-Struktur 
Zeiger auf RastPort-Struktur 
BitmapO-Struktur 
Bitmapl-Struktur 
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gelsinfo: • ab hier Gelslnfo-Struktur 

dc.b 0.0 
de. 1 0.0 
dc.l nextline 
dc.l lastcolor 
dc.l collhandler 
dc.w 0,0,0,0 
dc.l 0,0 

nextline: blk.w 6.0 
lastcolor: blk.w 32.0 
collhandler: blk.l 16,0 


ab hier Objekt 1 


anioobl: 

dc.l 0,0 
dc.l 0 
dc.w 0.0 

de.w 64*40.64*20 
dc.w 0.45 
dc.w 0.0 
dc.w 0.0 
dc.l 0 

dc.l animcompl 


ab hier AnimOb-Struktur 

NextOb/PrevOb 

Clock 

AnOldY/AnOldX 

AnY,AnX - Koordinaten vom Objekt 

YVel,XVel -Geschwindigkeit 

YAccel,XAcce1 - keine Beschleunigung 

RingYTrans.RingXTrans 

keine AnimORoutine 

HeadComp - Zeiger auf AnimComp-Struktur 


animcompl: 

de ,'w 0 
dc.w 0,0 
dc.l 0.0 
dc.l 0 0 
dc.l 0 
dc.w 0,0 
dc.l animobl 
dc.l bobl 


ab hier AnimComp-Struktur 
CompFlags = keine RingSequence 
Timer,TimeSet = Null 
NextComp,PrevComp 
NextSeq.PrevSeq 
AnimCRoutine = keine 
Y-Trans,X-Trans 

Zeiger auf dazugehörige AnimOb-Struktur 
Zeiger auf dazugehörige BOB-Struktur 
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bobl: 

dc.w 2 

dc.l savebufferl 
dc.l imageshadowl 
dc.l O.bob2 
dc.l vspritel 
dc.l animcompl 
dc.l dbufferl 


ab hier BOB-Struktur 
Flag: BOBisComp 

Puffer für Hintergrundspeicherung 

Maskenpuffer 

Priorität 

Zeiger auf dazugehörige VSprite-Struktur 
Zeiger auf dazugehörige AnimComp-Struktur 
Zeiger auf DBufPacket für double-boufering 


vspritel: 

dc.l 0,0 
dc.l 0,0 
dc.w 0.0 
dc.w 6 
dc.w 0,0 

dc.w 16.1 
dc.w 2 
dc.w 2 A 
dc.l imagedatal 
dc.l borderlinel 
dc.l imageshadowl 
dc.l 0 
dc.l bobl 
dc.b 3,0 


ab hier VSprite-Struktur 
Next/Prev-VSprite 
Draw/Clear-Path 
Old Y.X 

Flag: SaveBack/Overlay 
Y.X-Position wird in AnimOb-Struktur ge¬ 
setzt 

Höhe = 16 und Breite = 1 Word 

Tiefe = 2 BitMaps 

MeMask (Bit 11 / HitMask (Bit 2) 

Grafikdaten 

Borderl ine 

CollMask = ImageShadow 
SprColors 

Zeiger auf BOB-Struktur 
PlanePick/PlaneOnOff 


dbufferl: 

dc.w 0,0 
dc.l 0 

dc.l bufbufferl 
dc.l 0 


: ab hier DBufPacket-Struktur 


: Puffer zum Speichern des zweiten Hinter- 
: grundes 
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imagedatal: 

dc.w 0,0,0,0.Sc60.Sc60,$c60,$600c,$600c,$301ö,$3016,$lc70,Sfe0,$360 
dc.w 0.0.$7c0.$lff0.$3ff8.$7ffc.$7ffc.$fffe.Sfffe.Sfffe.$fffe.$fffe 
dc.w $7ffc,$7ffc.$3ffö.Slff0,$7c0,S0 


savebufferl: blk.b 16 X 1 X 2 X 5.0 

bufbufferl: blk.b 16*1*2*5.0 : genauso groß wie SaveBuffer 

imageshadowl: blk.b 16*1*2,0 

border1inel: blk.b 1*2.0 : Size = Bobbreite*2 

;-ab hier Objekt 2- 


animob2: 

de.1 00 
de. 1 0 
dc.w 0 0 

dc.w 64*40,64*230 
de.w 0 -65 
dc.w 0.0 
dc.w 0.0 
de. 1 0 

dc.l animcomp2 


ab hier AnimOb-Struktur 

NextCb/PrevOb 

Clock 

AnOldY/AnOldX 

AnY.AnX - Koordinaten vom Objekt 
YVel.XVel - Geschwindigkeit 
YAccel XAccel - keine Beschleunigung 
RingYTrans RingXTrans 
keine AnimORoutine 

HeadComp - Zeiger auf AnimComp-Struktur 


animcomp2: 

dc.w 0 
dc.w 0.0 
dc.l 0.0 
dc.l 0.0 
dc.l 0 
dc.w 0,0 
dc.l animob2 
de.1 bob2 


ab hier AnimComp-Struktur 
CompFlags = keine RingSequence 
Timer,TimeSet = Null 
NextComp.PrevComp 
NextSeq.PrevSeq 
AnimCRoutine = keine 
Y-Trans,X-Trans 

Zeiger auf dazugehörige AnimOb-Struktur 
Zeiger auf dazugehörige BOB-Struktur 
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bob2: 
dc.w 2 

dc.l savebuffer2 
dc.l imageshadow2 
dc.l bobl ,0 
dc.l vsprite2 
dc.l animcompz 
dc.l dbuffer2 


ab hier BOB-Struktur 
Flag: BOBisComp 

Puffer für Hintergrundspeicherung 

Maskenpuffer 

Priorität 

Zeiger auf dazugehörige VSprite-Struktur 
Zeiger auf dazugehörige AnimComp-Struktur 
Zeiger auf DBufPacket für double-boufering 


vsprite2: 

dc.l 0,0 
dc.l 0,0 
dc.w 0..0 
dc.w 6 
dc.w 0.0 

dc.w 16,1 
dc.w 2 
dc.w 4,2 
dc.l imagedata2 
dc.l borderlineZ 
dc.l imageshadowz 
dc.l 0 
dc.l bob2 
dc.b 2,1 


: ab hier VSprite-Struktur 
: Next/Prev-VSprite 
: Draw/Clear-Path 
: Old Y,X 

: Flag: SaveBack/Overlay 
: Y,X-Position wird in AnimOb-Struktur ge- 
: setzt 

; Höhe = 16 und Breite = 1 Word 
: Tiefe = 2 BitMaps 
: MeMask (Bit 21 / HitMask (Bit 1) 

■ Grafikdaten 
: Borderl ine 

: ColiMask = ImageShadow 
: SprColors 

: Zeiger auf BOB-Struktur 
: PlanePick/PlaneOnOff 


dbuffer2: 

dc.w 0.0 
dc.l 0 

de.1 buf buf f er 2 
dc.l 0 


ab hier DBufPacket-Struktur 


: Puffer zum Speichern des zweiten Hinter- 
: grundes 
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inagedata2: 

dc.w 0.0,0.0,Sc60 Sc60,Sc60,S600c,S600c,S3016,S3016,S1c70,SfeO.S360 
de.w 0,0,S7c0,Slff0,S3ffö,S7ffc,S7ffc,Sfffe,Sfffe,Sfffe,Sfffe,Sfffe 
dc.w $7ffc.$7ffc.$3ff6,$lff0,$7c0,$0 

savebuffer2: blk.b 16*1*2 X 5,0 

bufbuffer2: blk.b 16*1*2*5,0 : genauso groß wie SaveBuffer 

imageshadow2: blk.b 16*1*2,0 

border1 ine2: blk.b 1*2.0 : Size = Bobbreite*2 

END 

;- Listingen.de - 
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8.9 Tips & Tricks zu Grafikobjekten 

Mit dem "double-buffering" kann man zwar das Flackern abstcl- 
len, jedoch ruckein einige Objekte dabei. Darum folgen hier ein 
paar Tips, wie man das Ruckcln weitgehenst ausschaltcn kann. 

Wie es schon im letzten Listing angewendet wurde, sollte man die 
Objekte nicht über ein eigenes Display sondern über einen mit 
der Routine "OpenScreen ()" erzeugten Screen bewegen. Denn so 
erspart man sich das umständliche Neuberechnen der Copperli¬ 
sten. Bei Scrccns braucht lediglich die Routine "RcmakcDisplay 
()” aufgerufen werden. Dabei wird kurzzeitig das Multitasking ab¬ 
geschaltet. Dadurch kann das eigene Programm nicht mehr von 
anderen gestört werden. 

Eine weitere Möglichkeit ist, das Multitasking für die ganze Zeit 
auszuschalten. Dieses erledigt die Exec-Routinc "Forbid ()". Sic 
benötigt keine Paramter und schaltet das gesammtc Multitasking 
ab. Mit der Excc-Routine "Permit ()'* kann das Multitasking wie¬ 
der eingeschaltet werden. 

Oder man schaltet den Workbcnch-Scrccn ganz am Anfang seines 
Programmes aus. Es werden dann zwar keine Mausfunktionen 
mehr unterstützt, dafür steht einem aber 

1. mehr Speicher zur Verfügung und 

2. das Ruckcln der Objekte ist sehr gering. 

Den Workbench-Screen kann man mit der Intuition-Routine "Clo- 
seWorkbcnch ()” schließen. 
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9. Iff Standart 

Stellen sic sich mal vor, sie haben ein Bild mit Dcluxc Paint er¬ 
stellt und speichern cs auf Diskette ab. Sic haben gerade ein klei¬ 
nes Programm geschrieben, worin sie dieses Bild als Titelbild 
einbauen wollen. 

Woher wissen sie jetzt, wie breit, hoch, oder lang das Bild ist, 
welche Farben verwendet wurden, wann die eigentlichen Bildda¬ 
ten anfangen oder wie es entpacked wird usw.. 

Dafür wurde von dem Softwarehaus Electronic Arts der "Intcr- 
change File Format" Standart, abgekürzt "IFF", entwickelt. Er 
steht für den Datenaustausch zwischen verschiedenen Program¬ 
me n. 

Das heißt, das ein Bild, was mit Dcluxc Paint gemalt wurde auch 
von einem anderem Malprogramm wieder geladen und somit bear¬ 
beitet werden kann. 

Es gibt den Iff-Standart auch in Sachen Musik, Text usw.. Wir 
wollen hier allerdings nur auf den Iff-Standart für Graphik cingc- 
hen. 

Das Verfahren ist ziemlich einfach nach dem die Bilder auf Dis¬ 
kette abgespeichert werden. Es wird einfach ein Header vor den 
eigenlichen Bilddaten abgespeichert. In diesem Header sind alle 
nötigen Informationen enthalten, die für die Darstellung eines 
Bildes notwendig sind. 

Der Header selbst wird in kleinen Blöcken aufgetcilt, die als 
'Chunks' bezeichnent werden. Jeder "Chunk" (Block) beginnt mit 
einem Namen, danach folgt die Länge des Chunks und dann die 
eigentlichen Informationen. Durch diese Methode ist der Iff- 
Standart jeder Zeit Erweiterungen offen, denn man kann beliebig 
viele Chunks hinzufügen. 
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9.1 Screens 

Um nun ein IFF-Bild anzeigen zu können, fehlt uns noch das wis¬ 
sen, wie der Header nun aufgebaut ist. Wie schon erwähnt ist der 
Header in mehrere Chunks (Blöcke) aufgeteilt. Wir werden hier 
nur auf die wichtigsten Blöcke eingehen, die nötig sind um ein 
IFF-Bild anzeigen zu können. 

1. FORM-Chunk-Struktur (Länge = 12 Bytes) 

Offset Typ Inhalt 

000 Long FORM 

004 Long Gesamtlänge des Bildes 

008 Long ILBM 

2. BMHD-Chunk-Struktur (Länge = 28 Bytes) 

Offset Typ Inhalt 

000 Long BMHD 

004 Long Gesamtlänge des Block (20 Bytes) 

008 Word Breite der Grafik 

010 Word Höhe der Grafik 

012 Word X-Position der Grafik 

014 Word Y-Position der Grafik 

016 Byte Anzahl der Bitplanes 

017 Byte Masking 

0 = kein Masking 

1 = Masking 

2 = Transparent 

3 “ Lasso 

018 Byte DatenKompression 

0 = nicht gepacked 
1 = gepacked 
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019 

Byte 

unbenutzt 

020 

Word 

Transparentfarbe 

022 

Byte 

X-Aspekt 

023 

Byte 

Y-Aspe kt 

024 

Word 

Breite der Quellseite 

026 

Word 

Höhe der Quellseite 

3. CMAP-Chunk-Struktur (Länge = 104 Bytes) 

Offset 

Typ 

Inhalt 

000 

Long 

CM AP 

004 

Long 

Gesamtlänge des Blocks (96 Bytes) 

008 

Byte 

FarbeO Rotanteil 

009 

Byte 

FarbeO Grünanteil 

010 

Byte 

FarbeO Blauanteil 

usw .... 

für alle anderen Farbregister bis Farbregister 31 

4. BODY-Chunk-Stniktur (Länge - abhängig vom Bild) 

Offset 

Typ 

Inhalt 

000 

Long 

BODY 

004 

Long 

Gesamtlänge der Bilddaten 

008 

Byte 

Datenbytes 


.... hier folgen die eigentlichen Datenbytes 

Da die meisten Bilder aus Platzgründen gepacked auf Diskette ab- 
gcspcichcrt werden, folgt die Beschreibung des Packvorgangs: 

Ob ein Bild gepacked ist oder nicht, erkennt man an dem Com- 
pressions-Byte im BMHD-Chunk. Ist es eins, wurde das Bild ge¬ 
packed auf Diskette gespeichert. 
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Ein Iff-Bild wird nicht Bitplaneweise gespeichert, wie sie viel¬ 
leicht denken, sondern Zeilenweise. Das bedeutet, es kommt zu¬ 
erst die erste Zeile von Bitplanc 1, dann die erste Zeile von Bit¬ 
plane 2 und so weiter bis zur letzten. Dann folgt die ersten Zeile 
der Maskenplane, allerdings nur wenn das Masking-Byte nicht 
null ist. Nun folgt die zweite Zeile von Bitplane 1, dann die zwei¬ 
te Zeile von Bitplanc 2 usw. 

Wie funktioniert nun der Packvorgang? 

Es darf immer nur eine Zeile für sich entpackt werden, niemals 
zwei auf einmal; also Zeilenweise entpacken. 

Die gepackten Daten sind wie folgt Strukturiert: 

Erst kommt das Bcfehlsbyte für den Entpackcr, welches wir als 
“n" bezeichnen. Ist "n” eine Zahl zwischen 0 und 127, so werden 
die nächsten (n + 1) Bytes unverändert übernommen. Ist "n" je¬ 
doch negativ, also eine Zahl zwischen -1 bis -127, so wird das fol¬ 
gende Byte (-n + 1) mal wiederholt. Der Wert -128 hat keine Funk¬ 
tion und kann übersprungen werden. Das ist eigenlich schon alles, 
was zum Packvorgang zu sagen ist. Wie sie sehen, so kompliziert 
ist er eigenlich gar nicht. 


Das folgende Beispielprogramm lädt ein IFF-Bild in den Speicher, 
cntpackcd es und zeigt cs auf dem Bildschirm an. Mit der rechten 
Maustaste verschwindet das Bild wieder aus dem Speicher. Durch 
ändern des Filenames, kann man jedes beliebige IFF-Bild laden. 
Der Filename befindet sich in den Paramtern am Ende des Li- 
stings. Das Programm muß sich auf der selben Diskette befinden, 
wie das Bild, das angezeigt werden soll. 
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;- Prograainaae = Iff-Loader — 

;- rechte Maustaste = Ende — 

■- 1ädt ein Iff-Pic in den Speicher 

Start: 

;- Librarys öffnen - 


clr.1 dO 
move.l 4,a6 
move.l #gfxname,al 
jsr -552(a6) 
move.l dO,gfxbase 

move.l 4,a6 
clr.l dO 

move.l tintname.al 
jsr -552(a6) 
move.l dO. intbase 

move.l 4,a6 
clr.l dO 

move.l tdosname.al 
jsr -552(a6) 
move.l dO,dosbase 


- File öffnen 

move.I dosbase,a6 
move.l #filename,dl 
move.l #1 005,d2 
jsr -30(a6) 
tst. I dO 
beq prg_end 
move.l d0,bif 


: Version = Nul1 
: exeebase 
: graphics-library 
: OpenLibrary (I 
: Basis speichern 

: Exeebase 
: Version = Nul 1 
: Intuition-Library 
: OpenLibrary () 

: Basis speichern 

: Execbasis 
; Version 
: Dos-Library 
: OpenLibrary () 

: Basis speichern 


; Dos-Basis 
: Filename 
: Modus = Old 
; OPEN () 

; Error ? 

: Wenn ja, dann Prg.ende 
; Sonst Filehd saven 
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- ers t en ( Bytes lesen 

move.l #disk_buf.d2 
move.l #6,d3 
move.l dosbase,a6 
move.l bif,d1 
jsr -42(a61 

move.l #disk_buf,aO 
move.l 4(a0),d3 
move.l d3,chunk_size 

- Speicher für Picture 

move.l 4,a6 
move.l #$10002,dl 
move.l chunk_size,dO 
jsr -196(a6) 
move.l d0,pic_buf 
tst.l dO 
beq prg_end 

-Pictijre in Speicher 


) —. 

; Puffer für ersten 6 Bytes 
; Länge = 6 Bytes 
: Dos-Basis 
; Filehd 
; READ ( I 

: Puffer der ersten 6 Bytes 
; Länge des Files nach D3 
; und speichern 

reservieren - 

: Execbasis 
: Chip + FreeMem 
: Länge nach DO 
; Al locMem () 

; Adresse speichern 
: Error ? 

: wenn ja, dann Prg.ende 
laden - 


move.l chunk_size,d3 
move.l pic_buf,d2 
move.l dosbase,a6 
move.l bif.dl 
jsr -42(a6) 


: Länge nach D3 
; Pufferadresse nach D2 
: Dos-Basis 
: Filehd 
: READ ( I 


File wieder schließen 


move.l dosbase,a6 : Execbasis 

move.l bif.dl ; Filehd 

jsr -36(a6 I ; CLOSE () 
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- Ad reSSen der Iff-Chunks suchen 

jsr iff_search 

- Screen öffnen für Iff-Pic - 


move.l intbase,a6 
move.l tnewscreen.aO 
jsr -196(a6 ) 
move.l dO,screen 

jsr planes_init 
jsr co1ours_init 
jsr black_colour_set 

-- Parameter für Entpacker 

move.l #planes,bitplanezeiger 
move.l bmhd_chunk,aO 
move.b 17(a 0).maske 
move.b 16(aO I .compression 
clr.w dO 
move.b 16(a 01,d0 
move.w dO,anzahlplanes 
move.w 6(aO ),piebreite 
move.l body_chunk.aO 
add.l #4,a0 
move.l (aO)+.pic1änge 
move.l aO,picadresse 
jsr unpacker 
jsr colour_set 


; Intbasis 
; OSArgs 
: OpenScreen () 

: Screenhd speichern 

: PlanePtr-Adressen speichern 
: Farben herstellen 
; Screen schwarz einfärben 


; Puffer von PlanePtr-Adressen 
; BMHD-Chunk-Adresse 
; MaskenByte setzen 
; PackerByte 

: Depth 
; speichern 
: Picbreite 
: BODY-Chunk-Adresse 
; plus 4 
: = Piclänge 

: AO = Pic-Anfangsadresse 
; entpacken 
; Iff Farben setzen 
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Speicher von Iff-Daten freigeben 


move.l 4,a6 
move.l pic_buf,a1 
move. 1 chunk_size,dO 
jsr -210(a6) 


Execbasis 

Picadresse 

Länge 

FreeMEM 0 


Auf rechte Maustaste warten 


waitjoop: 
bist #10,Sdff016 
bne waitjoop 

;- Prograaaende 


; Screen 
: vorhanden ? 

: wenn nicht, dann weiter 
; sonst 
; CLOSE () 


prg_end: 

move.l screen,aO 
cmp.l #0,a0 
beq prg_endl 
move.l intbase,a6 
jsr -66(a6) 


Librarys schließen 


prg.endl: 

move.l 4,a6 
move.l intbase,al 
jsr -414(a6) 
move.l 4,a6 
move.l gfxbase,al 
jsr -414(a61 
move.l 4,a6 
move.l dosbase.al 
jsr -414(a6) 
rts 


; CloseLibrary () 
: CloseLibarry () 
; CloseLibrary () 
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■-Iff-Unpacker-Rout ine 

unpacker: 

clr.1 dO 

move.w picbreite.dO 
lsr.w #3.dO 
move.w dO,width_bytes 
move.w anzahlplanes,d2 
move.l bitplanezeiger,a2 
move.l picadresse,a0 
move.l a0.a3 
add.l piclänge,a3 

unp_loop: 
cmp.l a3,a0 
bge unpack_end 
clr.w d3 

pic_loopl: 

move.w d3,d4 
lsl ,w #2,d4 
move.l (a2,d4),a5 
jsr unpack_row 
move.l a5,(a2.d4l 
addq.w #1 ,d3 
emp.w d2.d3 

blt pic_1oopl 
and i.b #1 maske 
beq unpjoop 
move.l #mask_dummy,a5 
jsr unpack_row 
bra unp_loop 


: Picbreite nach DO 
: durch 6 teilen 
: und speichern 
: Depth nach D2 
: Pufferadresse v. PlanePtr 
: Picadresse nach AO 
: nach A3 

: plus Piclänge = Picende 

■ Bild schon entpacked ? 

: wenn ja, dann Ende 
: BitMapzähler 

: D3 nach D4 
: maM 

: Zeiger auf Bitmap errechnen 
: und Daten entpacken 
: BitMapposition speichern 
: BitMapzähler plus 1 
: schon eine Reihe aller Maps 
; durch ? 

: wenn nicht. dann weiter 
; sonst Maske entpacken 
: wenn vorhanden ? 

: Maskenpuffer 
: entpacken 
: wieder von vorne 
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unpack_row: 


move.l d2,-(sp) 
move.w width_bytes,d2 

Depth-Variable retten 
Zeilenbreite in Bytes 

unp_loopl: 

tst.w d2 

beq unpack_row_end 
clr.w dO 

ist.b compression 
bne unp_comp 
move.w width_bytes,dO 
subq.w #1,dO 
bra unp_1oop2 

schon eine Zeile durch ? 

Wenn ja, dann nächste 

Pic gepacked ? 
wenn ja. dann Unp_Comp 
sonst Zeilenbreite nach DO 
minus 1 

und Bytes übernehmen 

unp_conip: 

move.b (aOl+.dO 
bmi packed 

Befehlsbyte holen 

Wenn negativ, dann gepacked 

unp_loop2: 

move.b 1aO)+,(a5)+ 
subq.w #1,d2 
dbra d0,unp_loop2 
bra unp_1oopl 

sonst Bytes normal "bernehmen 
Zeilenbreite minus 1 

Schleife bis Anzahl Nul1 

Von vorne 

packed: 

neg.b dO 
move.b laOl+.dl 

Befehlsbyte negieren 

Füllbyte nach dl 

unp_loop3: 

move.b dl, (a5) + 
subq.w #1,d2 
dbra d0.unp_loop3 
bra unp_1oopl 

Zeile mit 

Füllbyte beschreiben 

Schleife 

vor vorne 

unpack_row_end: 

move.l (sp) +.d2 

Depth-Variable wiederholen 
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unpack_end: 

rts ; Ende 


;- Paraneter für Entpacker - 

maske: dc.w 0 
compression: de.w 0 
anzahlplanes: dc.w 0 
bitplanezeiger: dc.l 0 
piebreite: dc.w 0 
piclänge: dc.l 0 
picadresse: dc.l 0 

;- Planepointer-Adressen errechnen 


planes_init: 

move.l screen.aO 
add.l #ScO,aO 
move.l Iplanes.al 
move.w planes_num.dO 

planejoop: 

move.w dO,dl 
mulu #4,dl 

move.l (aO.dl),(al,dl) 
dbra dO,planejoop 
rts 


.- iff Farben errechnen und speichern 

coloursjnit: 
move.l cmap_chunk,a0 
add.l #6,aO 
move.l #colour_map,al 
move.w #31 ,d7 
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cojoopl: 
clr.w dO 
move.b (aOl+.dO 
and.b #SfO,dO 
lsl.w #4 .dO 
move.b laO) +.dO 
and.w #S0ff0.d0 
clr.w dl 
move.b laOl+.dl 
lsr.b #4,dl 
and.b #S0f dl 
or.b dl.dO 
move.w dO. (al 1 + 
dbra d7.cojoopl 
r ts 


Iff Farben setzen 


colour_set: 
move.l screen.aO 
add.l #44 aO 
move.1 #colour_map al 
move.w #32,dO 
move.l gfxbase.aö 
jsr -1921a6) 
rts 


.- Screen schwarz einfärben 

black_colour_set: 

move.l screen.aO 

add.l #44,aO 

move.l #black_colour.al 

move.w #32,dO 

move.l gfxbase.aö 

jsr -1921a61 

rts 


LoadRGB4 I 1 


LoadRGB4 l I 
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Iff-Chunk-Adressen suchen 


iff_search: 

move.l Ichunktabelle,al 
move.l #chunkadresse,a2 
if fsearchO: 
move.l pic_buf,aO 
clr.w dO 

iffsearchl: 

emp.1 #0,(al) 
beq iffsearch2 
move.b (aO) +,iffchunk 
move.b (aOl+,iffchunk+1 
move.b (a0)+,iffchunk+2 
move.b (aO) +,iffchunk+3 
move.l iff chunk ,d6 
move.l (al),d7 
cmp.l d7,d6 
beq iffsearch3 
sub.l #3,aO 
bra iffsearchl 

iffsearchOO: 

add.l 14,al 
add.l #4,a2 
bra iffsearchO 

iff sea rch3: 
sub.l #4.a0 
move.l (a2),a4 
move.l a0,(a4) 
bra iffsearchOO 
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iffsearch2: 

clr.w dO 

move.l bmhd_chunk,aO 
move.b 16(aO),dO 
move.w d0,newscreen+6 
sub.w #1,d0 
move.w dO,planes_num 
move.w 6(aO),width 
move.w 10(a0 ),height 
rts 


;- Parameter für Prograai - 

chunktabelle: dc.l "BMHD',’CMAP",'BODY',0 
chunkadresse: dc.l bmhd_chunk,cmap_chunk,body_chunk 
iffchunk: de. I 0 

bmhd_chunk: dc.l 0 
cmap_chunk: dc.l 0 
body_chunk: dc.l 0 

planes_num: blk.w 1.0 
width_bytes: blk.w 1,0 

dosname: dc.b 'dos.1ibrary".0 
even 

intname: dc.b "intuition.library*,0 
even 

gfxname: dc.b "graphics.1ibrary',0 
even 

gfxbase: blk. I 1,0 
intbase: blk.I 1,0 
dosbase: blk.I 1,0 

newscreen: 
dc.w 0,0 
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width: dc.w 320 
height: dc.w 256 
dc.w 5 
dc.b 0,1 

modes: dc.w 0,15 
dc.l 0 
de. 1 0 
dc.l 0,0 

screen: dc.l 0 
planes: blk.l 10.0 
colour_map: blk.w 32,0 
black_co1our: blk.w 32,0 

fi1ename: dc.b "iff-pic",0 
even 

bif: dc.l 0 
disk_buf: blk.b 10,0 
pic_buf: blk.l 1,0 
chunk_size: blk.l 1,0 
mask_dummy: blk.b 126,0 


Ende des Listings 
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9.2 Brushes (BOBs) 

Jedes Malprogramm besitzt Fuktionen, meist unter dem Menü¬ 
punkt "Brush'', mit denen man Teile aus einem Bild ausschneiden 
und diesen dann als Pinsel benutzten kann. Diese Pinsel werden 
dann als Brush bezeichnet und können beliebig groß und breit 
sein. Sie werden genau nach dem selben Verfahren abgespeichert, 
wie die Bilder. Jedoch sind sie meistens nicht gepacked und das 
entpacken ist auch etwas schwieriger. Da BOBs immer eine Breite 
die durch 16 teilbar ist besitzten müssen. 

Da mir noch kein Buch oder eine Zeitschrift bekannt ist, in der 
ein Listing in Assembler veröffentlicht wurde, welches IFF-Brus- 
hes entpacked und alle nötigen Parameter dazu abspeichert, die 
dann leicht ausgewertet werden können, um einen BOB zu akti¬ 
vieren, habe ich selbst eins geschrieben. 

Die Größe des Brushes kann beliebig sein. Das Programm wandelt 
einen Brush in Bruchteilen von Sekunden um und speichert ihn 
dann auf Diskette. 

Das Programm ist ziemlich primitiv gehalten worden, denn es soll 
ja bloß das Verfahren demonstrieren, nachdem Brushes entpacked 
werden. Wenn sie wollen, können sie ja durch erweitern des Pro¬ 
grammes, daraus einen komfortablen Brush-Transformer pro¬ 
grammieren (mit Menüs etc.). 

Anleitung zum Programm: 

Nach dem Programmnamen müssen sie als Parameter den Filena¬ 
me des Brush übergeben, welcher umgewandelt werden soll. 
Brush und Programm brauchen sich dafür allerdings nicht auf der 
selben Diskette zu befinden. 

Beispiel: Brush-Transformer Hund 
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Danach werden sic aufgefordert die Diskette cinzulcgen, auf der 
sich der Brush befindet. Haben sie dies getan, drücken sie Return 
und der Brush wird in den Speicher geladen. 

Jetzt wird der Brush umgcwandelt. Nun werden sic aufgefordert 
eine Diskette einzu legen, auf die der umgcwandclte Brush abge¬ 
speichert werden soll. Haben sie dies getan, drücken sie Return 
und cs wird gespeichert. 

Der umgewandclte Brush wird unter dem Namen "TransBOB" ab¬ 
gespeichert. 

Aufbau des "TransBOB” auf Diskette: 


Offset Typ Inhalt 


000 

004 

008 

010 

012 

014 

015 

016 


Long TBOB 

Long Gesamtlänge der Datei 

Word Höhe des BOBs in Zeilen 

Word Anzahl Words die der BOB breit ist. 

Word Dcpth (Anzahl Planes des BOBs) 

Byte PlancPick-Wcrt 
Byte PlaneOnOff-Wert 

Byte Datenbytes Bitplanes werden nacheinander ab- 
gcspcichcrt 


Die eigenlichen Grafikdaten des BOBs beginnen ab Offset 16. 
Erst folgen die Datenbytes von Bitplane 1, dann die von Bitplanc 
2 usw. Es folgen so viele Bitplanes, wie in Dcpth (Offset 12) ange¬ 
geben wird. Die Grafikdaten liegen jetzt also Bitplancweise vor, 
nicht mehr zeilenweise wie vor der Umwandlung. 
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- p r0 g raBinaie = ßrush-Transforaer — 

- wandelt ein Brush in eine BOB-Datei ui 

Filenaie einiesen - 


sub.l #1,d0 
tst.l dO 
bne ok 
rts 

ok: 

move.l dO,tex11änge 
move.l aO,textadresse 

add.l dO,aO 
move.b #0,(aOl 

. Dos-Library öffnen 


: Textlänge -1 
; liegt Text vor ? 

: wenn ja, dann weiter 
; sonst Ende 


; Länge des Textes speichern 
; Anfangsadresse des Textes 
; speichern 
; Textende 

: Mit Nullbyte abschließen 


move.l 4.a6 
move.l #dosname,al 
clr. 1 dO 

jsr -552(a61 ; OpenLibrary (I 

move.l dO.dosbase 

;-auf Returntaste warten.. 

move.l ttextl,textanfang ; Textadresse 

bsr meldung ; und ausgeben 

get: 

emp.b #$77,SbfecOl 
bne get 
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getl: 

emp.b #$76 SbfecOl 
bne getl 


IFF-Header in Speicher laden 


move.l #1005,d2 
move.l textadresse,dl 
move.l dosbase,a6 
jsr -30(a61 
move.I dO,filehd 
tst.I dO 
bne okl 

move.l #text2,textanfang 
bsr meldung 
bra exit 

okl: 

move.l fi1ehd,dl 
move. I #puffer,d2 
move. 1 #12 ,d3 
move.l dosbase,a6 
jsr -42(a6) 
move.l fi1ehd,dl 
move.l dosbase,a6 
jsr -36(a6) 


; Mode = OLD 
: Filename 

: OPEN () 

: Fileadresse speichern 
; File auf Disk ? 

: wenn ja, dann okl 
: Textadresse 
: und ausgeben (Error) 

; Programmende 


: Fileadresse 
: Puffer für 
; ersten 12 Bytes 

; READ () 

; File wieder schließen 
; CLOSE (I 


ab hier Diskheader auswerten 


lea puffer,aO 
cmp.l #"FORM*,(a0) 
beq ok2 

move.l #text3,textanfang 
bsr meldung 
bra exit 


: 1 iegt IFF-Datei vor ? 
; wenn ja, dann ok2 
; textadresse 
; und ausgeben (Error) 

: Programmende 
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ok2: 

cmp.l #"1LBM",6(a0) 
beq ok3 

move.l #text4,textanfang 
bsr meldung 
bra exit 


liegt 1LBM-Format vor ? 
wenn ja, dann ok3 
textadresse 
und ausgeben (Error) 
Prograin inende 


Speicher für Brush reservieren 


ok3: 

move.l 4(aO),dO 
move.l #310002.dl 
move.l 4.a6 
jsr -1961a6) 
move.l d0.brush_base 
tst.l dO 

bne oM 

move.l #text5.textanfang 
bsr meldung 
bra exit 


: Dateigröße 
: Chip- und Free-Memory 

: Al locMem ( 1 
: Adresse speichern 
: konnte Speicher reserviert 
: werden ? 

: wenn ja. dann ok4 
: sonst Erromeldung 
: ausgeben 
: Programmende 


Brush in Speicher laden 


ok4: 


move. 1 

#1005.d2 

: Modus = Alt 

move. 1 

textadresse.dl 

: Filename 

move. 1 

dosbase.a6 


jsr -301 a61 

■ OPEN l ) 

move. 1 

dO.f ilehd 

: Fileadresse 

move.l 

dO dl 


move. 1 

brush_base.d2 

: Datenpuffer 

move.l 

puf fer+4 ,d3 

: Datenlänge 

move. 1 

dosbase.a6 


jsr 

.laß) 

: READ I) 

move. 1 

filehd dl 

• Fileadresse 
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move.1 dosbase.a6 

jsr - 36(a6) : CLOSE 


IFF-Brush-Struktur auswerten 


move.l Jfchunktabel le,al 
move.I #chunkadresse,a2 


' Brush-Chunkadressen suchen 
; dort werden Adressen gespei- 
: chert 


biffsearchO: 

move.l brush_base,aO : Brushanfang 


bi f f searchl: 

cmp. 1 #0.. (al) 
beq chunk_search_ende 
move.b Ia0l+,iffchunk 
move.b (a0)+,iffchunk+1 
move.b (aO) +.iffchunk+2 
move.b (aO) +.iffchunk+3 
move.l iffchunk.d6 
move.l Ial).d7 
cmp.l d7.d6 
beq biffsearch3 

sub.l #3.aO 
bra biffsearchl 

bif f search3: 
sub.l #4,aO 
move.l (a2) a4 
move. 1 aO, (a4) 
add.l #4,al 
add.l #4,a2 
bra biffsearchO 

chunk_search_ende: 


: schon alle Chunks gefunden ? 

wenn ja, dann Ende 
: sonst 
: erstes 

■ LongWord 
: lesen 

■ LongWord nach D6 
: mit Chunk aus 

■ Tabel le vergleichen 

: wenn gleich, dann Adresse 

■ speichern 

: sonst Brushadresse minus 3 
: und weiter suchen 
; ab hier Chunkadresse speichern 

■ Brushadresse minus 4 

: Puffer aus Tabelle holen 
: und Chunkadresse speichern 
: Chunktabelle plus 4 
; Puffertabelle plus 4 
; nächsten Chunk aus Tabelle su- 
: chen 
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BMHD-Chunk auswerten für Unpacker 


move.l bmhd_chunk,aO 

move.b 16(aO),packerbyte 

move.w 10(aO) ,bob_höhe 

clr.l dO 

move.w 8(a0) ,d0 

divu #16,dO 

swap dO 

cmp.w #0,d0 

bne dawl 

swap dO 

bra daw2 


BMHD-Chunkadresse nach AO 
Compression-Byte speichern 
Bobhöhe speichern 

BOB-Breite nach DO 
durch 16 teilen 

HIGH- und LOW-Word vertauschen 
Rest der Division = Null ? 
wenn nicht, dann dawl 
sonst, Words wieder vertauschen 
und daw2 


dawl: 

swap dO 
add.w #1,d0 


; Words wieder vertauschen 
: plus 1 Word (wegen Rest) 


daw2: 

lsl.w #1,dO 

move.w dO,bob_bytebreite 
clr.w dO 

move.b 16(a 0),dO 
move.w dO,bob_planes 


; Wordbreite mal 2 = Bytebreite 
; Bobbreite (in Bytes) speichern 

; Depth vom Brush 
; Anzahl Bob-Planes speichern 


move.b #$ff,d7 
move.w #7,dl 
sub.w dO,dl 


; D7 mit 255 laden 
; max. 8 Planes (7 wegen DBRA) 

; max. Planes minus Anzahl Planes 


loop_pick: . 

lsr.b #1,d7 
dbra dl,1oop_pick 
move.b d7,planepick 
move.b #0,p1aneonoff 


; PlanePick-Wert ermitteln 

; PlanePick speichern 
; PlaneOnOff = 0 
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Speicher fürs Entpacken reservieren 


move.w bob_planes.dO 
mulu bob_bytebreite,dO 
mulu bob_höhe,dO 
move.l dO,bob_planes_size 
move.l #$10002,dl 
move.l 4,a6 
jsr -198(a6) 

move.l dO,bob_planes_base 
tst.l dO 

bne bob_ok6 

move.l #text5,textanfang 
bsr meldung 
bra exit 


Anzahl Planes 
mal BOB-Breite 
mal BOB-Höhe 
= BOB-Größe 
CHIP- und FREE-Memory 

Al locMem 1) 

Adresse speichern 
konnte Speicher reserviert 
werden ? 

wenn ja, dann ok6 
sonst Errormeldung 
ausgeben 
Programmende 


Anfangsadresse der BitMaps errechnen und speichern 


bob_ok6: 

move.l d0,a0 

move.w bob_bytebreite,dO 
mulu bob_höhe,d0 
move.l #bitmapadressen,al 
move.w bob_planes,dl 
sub.w #1,dl 

buploop: 

move .1 a 0,(a1) + 
add.l dO,a0 
dbra dl,buplo.op 


Adresse der 1. Bitplane 

BOB-Bytebreite nach DO 

mal BOB-Höhe = Bitplanegröße 

Puffer für Bitplane-Pointer 

Anzahl Planes 

minus 1, wegen DBRA-Befehl 


; Bitplaneadresse speichern 
; plus eine Bitplanegröße 
: weiter speichern 
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- Br US h entpacken - 

bsr start_dekompression 

move.l #tex16,textanfang : Ok-Me 1 düng 

bsr meldung ; ausgeben 


BOB-Header aufbauen 


lea bob_header,aO 
move.l #"TBOB",(aO) 
move.l bob_planes_size,4(aOI 
add.l #16,4(a0) 
move.w bob_höhe,6(a0) 
move.w bob_bytebreite,dO 
lsr.w #1 ,d0 
move.w d0,10(a0l 
move.w bob_planes,12(a0l 
move.b planepick,14la0) 
move.b planeonoff,15IaO) 

;-Auf Disk warten w 

move.l #tex 1 7,textanfang 
bsr meldung 

geta: 

cmp.b #S77,SbfecOl 
bne geta 

getal: 

cmp.b #$76 SbfecOl 
bne getal 


: Headeranfangsadresse 
: Bezeichnung 
: BOB-ImageSize 
: plus BOB-Header 
; Höhe 

: Breite in Bytes 
: durch 2 = Breite in Words 
: und Wordbreite speichern 
: Tiefe 
: PlanePick 
: PlaneOnOff 

BOB gespeichert werden kann 

; Text 
; ausgeben 
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BOB-Header auf Disk schreiben 


move.l #1006,d2 
move.l #filename.dl 
move.l dosbase,a6 
jsr -30(a6) 
move.l dO.filehd 
tst.1 dO 
bne ok7 

move.l #text6.textanfang 
bsr meldung 
bra exit 

ok7: 

move.l filehd.dl 
move.l #bob_header.d2 
move.l #16.d3 
move.l dosbase,a6 
jsr -46(a61 

move.l filehd.dl 
move.l bob_planes_base,d2 
move.l bob_planes_size,d3 
move.l dosbase,a6 
jsr -461 a6) 
move.l filehd.dl 
move.1 dosbase.a6 
jsr -36(a6) 


Modus = New 
Filename 

OPEN I) 

Fileadresse 
Error ? 

wenn nicht, dann ok7 
Errormeldung 
ausgeben 
Programmende 


: Fileadresse 
: Daten 

: Länge = 16 Bytes 
: Write I) 

■ ab hier 

: werden die entpackten 
: Grafikdaten vom BOB 
: gespeichert 
: WRITE II 


CLOSE () 


-OK-Meldüng ausgeben 

move.l #text9,textanfang 
bsr meldung 
bra exit 
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Brush-Piedaten entpacken 


start_deko*pression: 

move.l body_chunk,aO 
add.l #6.aü 
clr.l d7 

clr.l d6 
clr.l d5 
clr.l d4 


Quelle für Picdaten ist AO 
7 = Zähler für eine Spalten¬ 
anzahl 

Brushpicdatenzähler 

D5 = Zähler für Zeilenanzahl 

D4 = Zähler für Planes 


deko_spalte: 

emp.w bob_bytebreite,d7 

bmi dekoa 
clr.l d7 

add.w #1,d4 
emp.w bob_planes,d4 

bmi deko_spalte 

clr.l d4 

cmp.l bob_planes_size,d6 

bmi deko_spa1te 
rts 


: schon eine Zeile einer Bitmap 
; entpacked ? 

; wenn nicht , dann 'dekoa' 

; Spa 1tenzälh1er auf Null zurück¬ 
setzen 

; Bitmapzähler um 1 erniedrigen 
: schon eine komplette Zeile der 
Grafik 

: entpacked 1 - wenn nicht 'de- 
ko_spa1te' 

; Planeszähler auf Null zurück¬ 
setzen 

: schon komplette Grafik entpak- 
ket ? 

; wenn nicht, dann weiter machen 
; Ende der Entpackerroutine 
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■-Eine 2eile entpacken 

dekoa: 

move.l d4.d3 
mulu #4,d3 

move.l tbitmapadressen.al 

move.l (al,d31.a2 
bsr bob_unpacker 
move.l a2, (al ,d3) 
bra deko_spa1te 


: Planenummer nach D3 
: mit 4 multiplizieren 
: Ziel für Picdaten ist Al Ha¬ 
bel lei 

: A2 ist Zeiger auf Bitmapadresse 
: Eine Bitmapzeile entpacken 
: Bitmapposition saven 
: nächste Zeile 


eigentliche Entpackerroutine 


bob.unpacker: 

clr. 1 dO 

emp.b #0,packerbyte 
bne gepacked 


: Zähler für max. 126 Bytes 
; Brush gepacket ? 

■ wenn ja, dann 'gepacked' 


eine nicht gepackte Zeile übernehmen 


move.w bob_bytebreite,dO 
sub.w #1,dO 
bra dekolloop 

gepacked: 

move.b (a0)+,d0 
bmi deko2 

dekolloop: 

move.b (aO) + . (a2) + 
add.w #1,d7 
add.l #1,d6 
dbra dO,dekolloop 
rts 


Bob-Breite in Bytes nach DO 
minus 1 

und Picdaten übernehmen 


: Befehlsbytes holen 
: wenn negativ, dann 'deko2' 


sonst Picdaten kopieren 
Spaltenzähler plus 1 
Brushdatenzähler plus 1 
solange bis Befehlsbyte = Null 
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deko2: 

neg.b dO ; vom Befehlsbyte Vorzeichen 

wechseln 

move.b (aO) +, dl ; Füllbyte nach Dl 


deko21oop: 

move.b dl,(a21+ 
add.w #1 ,d7 
add.l #1,d6 
dbra d0.deko21oop 
rts 


; Füllbyte kopieren 
: solange bis Befehlsbyte 
: gleich Null ist 


;- Programm beenden 

exit: 

move.l brush_base,al 
cmp.l #0,al 
beq exitl 

move.l puffer+4 .dO 
move.l 4,a6 
jsr -2101a6) 

exitl: 

move.l bob_planes_base.al 
cmp.l #0.al 
beq ex it2 

move.l bob_planes_size.dO 
move.l 4.a6 
jsr -2101a6) 

exi12: 

move.l dosbase.al 
move.l 4,a6 
jsr -414(a6) 
rts 


Wurde Speicher für 
Brush reserviert ? 
wenn nicht, dann exitl 
sonst Speicher wieder 
f reigeben 
F reeMem I) 


Wurde Speicher zum 
entpacken reserviert ? 
wenn nicht, dann exit2 
sonst Speicher wieder 
f reigeben 
F reeMem I) 


: dosbase 
: CloseLibrary I) 
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Text ausgeben 


ne 1 düng: 

move.l dosbase,a6 
jsr -60(a6) 
move.l dO.dl 
move.l textanfang,d2 
move.l d2,a0 
clr.l d3 

loop: 

emp.b #0,1aOI + 
beq loopl 
add.l #1 ,d3 
bra loop 

loopl: 

move.l dosbase,a6 
jsr -46(a6) 
rts 

;- Paraneter 

textlänge: dc.l 0 
textadresse: dc.l 0 
textanfang: dc.l 0 
dosname: dc.b "dos. 1 ibrary".0 
even 

dosbase: dc.l 0 

filehd: dc.l 0 

puffer: blk.b 12.0 

bob_header: blk.b 16,0 

brush_base: dc.l 0 

chunktabelle: dc.l "BMHD","BODY",0 

chunkadresse: dc.l bmhd_chunk,body_chunk 

iffchunk: dc.l 0 


: aktives Window ermitteln 
: OutPut () 

: Windowadresse nach Dl 
: Zeiger auf Text 


Textende ? 
Textzähler +1 
nächstes Zeichen 


Textmeldung ausgeben 
Write (1 
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bmhd_chunk: dc.l 0 
body_chunk: dc.l 0 
planepick: dc.b 0 
even 

planeonoff: dc.b 0 
even 

bob_planes_size: dc.l 0 
bob_planes_base: dc.l 0 
bitmapadressen: blk.l 6,0 
bob_planes: dc.w 0 
bob_höhe: dc.w 0 
bob_bytebreite: dc.w 0 

packerbyte: dc.b 0 ; Dekompressions-Byte 

even 

textl: dc.b 'Bitte Disk worauf sich Brush befindet einlegen!",10,0 
even 

text2: dc.b "Kann File auf Diskette nicht finden!',10,0 
even 

text3: dc.b 'Kein IFF-Standart!",10,0 
even 

text4: dc.b 'Datei nicht im 1LBM-Format!", 10,0 
even 

text5: dc.b 'Nicht genug Speicher vorhanden!',10,0 
even 

text6: dc.b "Brush erfolgreich in BOB umgewandelt!',10,0 
even 

text7: dc.b "Bitte Disk einlegen, worauf BOB gespeichert werden 
kann",10,0 

even 

textö: dc.b 'Disk-Error!",10.0 
even 

text9: dc.b "BOB erfolgreich auf Disk gespeichert!",10,0 
even 

filename: dc.b "TransBOB',0 
even 
END 
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Anhang A 

Strukturen im Überblick 

In diesem Anhang finden sie alle Strukturen im Uebcrblick, wel¬ 
che im Buch verwendet wurden (alphbetisch geordnet): 

‘AnimOb‘-Struktur: (Länge = 40 Bytes) 

Die AnimOb-Struktur enthält ein Animationsobjekt, welches aus 
verschiedenen AnimComps besteht, in seiner Gesamtheit. Dieses 
Objekt wird mit "AddAnimOb ()“ dem System zugänglich gemacht 
und kann mit ‘Animate ()“ animiert werden. ‘SortGList ()' und 
"DrawGList ()" printen dann das Objekt auf den Bildschirm. 

Offset: Typ: Bezeichnung: Erklärung: 

;— cs folgen als erstes Systcmvariablcn. 


000 

Long 

NextOb 

Zeiger auf nächste ‘An- 
imOb“-Struktur (oder 

Null) 

004 

Long 

PrcvOb 

Zeiger auf Vorgänger¬ 
struktur (s.o.) 

008 

Long 

Clock 

enthält Anzahl "Animate 
()'- Aufrufe die dieses 
Objekt schon erlebt hat 

012 

Word 

AnOldY 

alte y-Position 

014 

Word 

AnOldX 

alte x-Position 


nun folgen die User-Variablen. 

016 Word AnY y-Position (Achtung - sie¬ 

he unten) 
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018 

Word 

AnX 

x-Position (Ach tung 
siehe 
unten) 

020 

Word 

YVel 

Geschwindigkeit in y- 
Richtung (siche unten) 

022 

Word 

XVel 

Geschwindigkeit in x- 
Richtung (siehe unten) 

024 

Word 

YAcccl 

y-Bcschlcunigung (siehe 
unten) 

026 

Word 

XAcccl 

x-Bcschleunigung (siehe 
unten) 

028 

Word 

RingYTrans 

steigende Beschleuni¬ 

gung in Y-Richtung (s. 
u.) 

030 

Word 

RingXTrans 

steigende Beschleuni¬ 

gung in X-Richtung (s. 
u.) 

032 

Long 

AnimORoutinc 

siche unten 

036 

Long 

HeadComp 

Zeiger auf erste ‘Ani- 
mComp'-Struktur 

040 


END 

Ende der ’AnimOb'- 

Stru ktur 


AnimComp-Struktur: (Länge =38 Bytes) 

Die AnimComp-Struktur (Animationskomponente) stelt die Ver¬ 
bindung zwischen BOB und Animationsobjekt (AnimOb-Struktur) 
her. Besonders bei der Sequenzanimation (RingTrigger) ist sic von 
roßer Wichtigkeit, denn sie verbindet einzelne Komponenten zu 
inem Ring miteinander und bestimmt, wie lange jede einzelne 
Sequenz aktiv sein soll. 
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Offset: 

Typ: 

Bezeichnung: 

Erklärung: 

000 

Word 

CompFlags 

Bit 0=1, dann wird mit 
hiifc der Zeiger “NextSeq' 
und “PrevSeq“ eine Ring¬ 
sequenz vom System 

durchgeführt. (RingTrig- 
ger-Flag) 

002 

Word 

Timer 

wird mit Wert aus Time¬ 
Set geladen und auf Null 
heruntergezählt und dann 
falls gewünscht (Ring- 
Triggcr-Flag = 1) die 

nächste Sequenz darge- 
stcllt 

004 

Word 

TimeSet 

wie lange eine Sequenz 
dargestellt werden soll 

006 

Long 

NextComp 

Zeiger auf nächste Ani- 
mComp-Struktur (s. u.) 

010 

Long 

PrevComp 

Zeiger auf Vorgänger- 
AnimComp-Struktur (s.u.) 

014 

Long 

NextSeq 

Zeiger auf nächste Ani- 
mComp-Struktur (s. u.) 

018 

Long 

PrevSeq 

Zeiger auf Vorgänger- 
AnimComp-Struktur (s.u.) 

022 

Long 

AnimCRoutinc 

siche “AnimORoutine“ 

026 

Word 

Y-Trans 

y-Positon der Ani- 

mComp-Struktur, in 

64stcl 

028 

Word 

X-Trans 

X-Postion der Ani- 

mComp-Struktur, in 

64stel 

030 

Long 

HeadOb 

Zeiger auf dazugehörige 
“AnimOb'-Struktur 

034 

Long 

AniinBob 

Zeiger auf dazugehörige 
BOB-Stru ktur 
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038 


END 

Ende der AnimComp- 
Struktur 

‘Bitmap* 

-Struktur: (Länge = 40 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Word 

BytcPcrRow 

Bytes pro Display-Zeile 

002 

Word 

Rows 

Anzahl der Display-Zei¬ 
len 

004 

Byte 

Flags 

System-Flags 

005 

Byte 

Depth 

Anzahl der Bitmaps (Tie¬ 
fe) 

006 

Word 

Pad 

unbenutzt 

008 

Long 

PlancPtrl 

Zeiger auf 1. Bitmap (02 
Farben) 

012 

Long 

PlanePtr2 

Zeiger auf 2. Bitmap (04 
Farben) 

016 

Long 

PlancPtr3 

Zeiger auf 3. Bitmap (08 
Farben) 

020 

Long 

PlanePtr4 

Zeiger auf 4. Bitmap (16 
Farben) 

024 

Long 

PlancPtr5 

Zeiger auf 5. Bitmap (32 
Farben) 

028 

Long 

PlanePtrö 

Zeiger auf 6. Bitmap 
(HAM) 

032 

Long 

PlancPt r7 

Zeiger auf 7. Bitmap 
(unbenutzt) 

036 

Long 

PlanePtr8 

Zeiger auf 8. Bitmap 
(unbenutzt) 

040 


END 

Ende der ‘Bit- 

map'-Struktur 
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‘BOB‘-Struktur: (Länge = 30 Bytes) 

Muß mit 'VSpritc’-Struktur verbunden werden (Offset 52)! 

Offset: Typ: Bezeichnung: Beschreibung: 

000 Word B_Flags wie das BOB vom System 

behandelt werden soll: 

User--SaveBOB Bit 0 = 1, dann wirkt BOB wie ein 

Paintbrush 

User--BOBisComp Bit 1 = 1, Bob besitzt eine 

'AnimComp'-Struktur 

BWaiting Bit 6 = 1, ein BOB auf den 'Be¬ 

töre' in der 'BOB'-Struktur 
zeigt, wird zuerst gezeichnet 

BDrawn Bit 9 = 1, BOB wurde gezeichnet 

BobsAway BitlO =1. BOB wird beim nächsten 

'DrawGList ()' aus dem Gelsystem 
entfernt 

BobNix Bitll = 1, Bob wurde aus dem 

Gelsystem entfernt 

002 Long SavcBuffcr Zeiger auf Puffer zum 

speichern des Hintergrun¬ 
des (nur wenn SaveBack- 
Flag in VSpritc gesetzt 
ist) SaveBuffcrSize 
bobhöhe * bobbreite * 2 * 
scrcenticfc 

006 Long ImagcShadow Zeiger auf Puffer in der 

die Maske aller gesetzten 
Bits von allen Bitmaps 
zusammen steht ImagcS- 
hadowSize = bobhöhe * 
bobbreite * 2 
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010 

Long 

Before 

Zeiger auf BOB-Struktur, 
die über diesen BOB ge¬ 
zeichnet werden soll 

(oder Null) - Priorität 

014 

Long 

After 

Zeiger auf BOB-Struktur, 
die hinter diesem BOB 
gezeichnet werden soll 
(oder Null) - Priorität 

018 

Long 

VSprite 

Zeiger auf dazugehörige 
VSpritc-Struktur 

022 

Long 

BobComp 

Zeiger auf ‘Ani- 

mComp’-Struktur, nur 

wenn Flag 'BOBisComp' 
in BOB-Struktur gesetzt 
(sonst Null) 

026 

Long 

DBuffer 

Zeiger auf ’DBufPak- 
ket’-Struktur (wenn BOB 
doppelt gepuffert werden 
soll - sonst Null) 

030 


END 

Ende der "BOB’-Struktur 

‘ColorMap* 

-Struktur: 

(Länge = 8 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Byte 

Flag 

System-Flag 

001 

Byte 

Typ 

System 

002 

Word 

Count 

Anzahl Farben (max. 32) 

004 

Long 

ColorTable 

Zeiger auf einen Puffer 
mit 32 Words (64 Bytes) 
in dem die Farbwerte ste¬ 
hen 

008 


END 

Ende der “ColorMap 1 - 
Struktur 
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‘DBufPacket‘-Struktur: 

(Länge = 16 Bytes) 

Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Word 

BufY 

Y-Position vom Hinter¬ 
grund des zweiten 

Screens 

002 

Word 

BufX 

X-Position vom Hinter¬ 
grund des zweiten 

Screens 

004 

Long 

BufPath 

Zeiger auf VSprite-Struk- 
tur 

008 

Long 

BufBuffcr 

Zeiger auf einen Puffer, 
der genausogroß ist, wie 
der von SaveBuffer, zum 
Speichern des zweiten 
Hintergrundes 

012 

Long 

BufPlanes 

Zeiger auf Planepointers 
des zweiten Screens 

016 


END 

Ende der DBufPacket- 
Struktur 


‘GelsInfo‘-Struktur: (Länge = 38 Bytes) 


'InitGels ()' füllt diese Struktur mit den wichtigsten Werten! 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Byte 

SprRsrvd 

welche Sprites als VSpri 
tes genutzt werden 

001 

Byte 

Flags 

System-Flag 

002 

Long 

GelHead 

Zeiger auf erste 'VSpri 
te'-Stru kt ur 
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006 

Long 

GclTail 

Zeiger auf letzte ‘VSpri- 
te“-Struktur 

010 

Long 

NcxtLinc 

Zeiger auf Puffer mit 8 
Words (nur bei VSprites) 

014 

Long 

LastColor 

Zeiger auf Puffer mit 8 
Longs (nur bei VSprites) 

018 

Long 

CollHandler 

Zeiger auf Puffer mit 16 
Longs (Adressen der 16 
verschiedenen Collis¬ 

ion sroutinen) 

022 

Word 

Leftinost 

linker Begrenzungsrand 
(für Collisions-Routine 0) 

024 

Word 

Rightmost 

rechter Begrenzungsrand 
(für Collisions-Routine 0) 

026 

Word 

Topmost 

oberer Begrenzungsrand 
(für Collisions-Routine 0) 

028 

Word 

Bottommost 

unterer Begrenzungsrand 
(für Collisions-Routine 0) 

030 

Long 

FirstBlissObj 

wird nur vom System be¬ 
nutzt 

034 

Long 

LastBlissObj 

wird nur vom System be¬ 
nutzt 

038 


END 

Ende der ‘Gclsln- 


fo‘-Stru ktur 


‘Interrupt‘-Struktur: (Länge = 22 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

Succ 

Zeiger auf nächste Liste 
(unwichtig) 

004 

Long 

Pred 

Zeiger auf vorangegange¬ 
ne Liste (unwichtig) 
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008 

Byte 

Type 

kodierter Node-Typ (auf 
Wert 2 setzen) 

009 

Byte 

Pri 

Priorität dieser Liste (von 
+ 127 bis -128) 

010 

Long 

Name 

Zeiger auf Namen dieser 
Liste (unwichtig) 

014 

Long 

Data 

Zeiger auf Datenspeicher 
(unwichtig) 

018 

Long 

Code 

Zeiger auf Interruptrouti¬ 
ne 

022 


END 

Ende der Interrupt-Struk¬ 
tur 


‘ITcxt‘ 

-Struktur: (Länge = 20 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Byte 

DctailPcn 

TcxtFarbc (Farbrcgistcr- 
n ummer) 

001 

Byte 

BlockPen 

Hintergrundfarbe (Farbre- 
gisternummer) 

002 

Byte 

Mode 

Darstcllungsart (0, 1, 4, 5, 
8) 

003 

Byte 

Pad 

unbenutzt 

004 

Word 

x_pos 

relative X-Position zur 
aktuellen Position 

006 

Word 

y_pos 

relative Y-Position zur 
aktuellen Position 

008 

Long 

Font 

Zeiger auf TcxtFont- 
Struktur oder Null 

012 

Long 

Text 

Zeiger auf Text, welcher 
mit Null endet 

016 

Long 

NcxtITcxt 

Zeiger auf weitere ITcxt- 
Struktur oder Null 
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020 


END Ende der IText-Struktur 


4 OSArgs‘-Struktur: (Länge = 32 Bytes) 

Wird für die Routine ’OpcnScrccn 0‘ benötigt! 


Offset: 

Typ: 

Bezeichnung: Beschreibung: 

000 

Word 

X_Pos 

X-Position des Scrccns im 
ViewPort (Normal = 0) 

002 

Word 

Y_Pos 

Y-Position des Scrccns im 
ViewPort 

004 

Word 

Width 

Breite der Bitmap 

006 

Word 

Heigth 

Höhe der Bitmap 

008 

Word 

depth 

Anzahl der Bitplancs (tiefe) 

010 

Byte 

dctail_pcn 

Farbregisternummer für Text¬ 
farbe 

011 

Byte 

block_pen 

Farbregisternummer für 
Hintergru ndfarbc 

012 

Word 

Vicw_Modcs siehe ViewPort-Struktur 

014 

Word 

Scrccn_Typ siehe unten 

016 

Long 

Font 

Zeiger auf neuen Zei¬ 
chensatz (0 = Normal) 

020 

Long 

title 

Zeiger auf Titletext, der mit 
Null endet 

024 

Long 

Gadget 

Zeiger auf Gadget-Struktur (0 = 
keine) 

028 

Long 

BitMap 

Zeiger auf eigene Bitmap- 
Struktur (nur wenn in 

Screcn_Typ = Bit7 gesetzt ist, 
sonst Wert Null) 

032 


END 

Ende der OSArgs-Struktur 
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Screen_Typ-Flag: 


Bit: 

Wert: 

Bezeichnung: 

Beschreibung: 

0 

$001 

WBenchScreen 

dies ist der Workbench- 
Scrcen 

0-3 

$00f 

CustomScrcen 

Scrcen mit allen Funktio¬ 
nen 

4 

$010 

ShowTitle 

Bit wird gesetzt, wenn 
man “ShowTitle ()' auf¬ 
ruft 

5 

$020 

Bceping 

Bit wird gesetzt, wenn 
man “DisplayBcep ()“ auf¬ 
ruft 

6 

$040 

CustomBitMap 

muß man setzen, wenn an 
seine eigene “BitMap“- 
Struktur benutzen will 

7 

$080 

ScreenBchind 

wenn gesetzt, Screen wird 
hinter allen anderen 

Scrccns geöffnet 

8 

$100 

ScreenQuiet 

es erscheinen keine Gad- 
gets und kein Title mehr 
auf dem Screen 


‘OWArgs‘-Struktur: (Länge = 48 Bytes) 


Wird für die Routine ‘OpenWindow ()“ benötigt! 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 


000 

Word 

X_Pos 

X-Position des 
auf dem Screen 

Windows 

002 

Word 

Y_Pos 

Y-Position des 
auf dem Screen 

Windows 
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004 

Word 

Width 

Breite des Windows 

006 

Word 

Heigth 

Höhe des Windows 

008 

Byte 

detail_pen 

Farbregisternummcr für 
Textfarbe 

009 

Byte 

block_pen 

Farbregisternummer für 
Hintergrundfarbe 

010 

Long 

IDCMP-Flags 

siehe unten 

014 

Long 

Windo\v_Typ 

siche unten 

018 

Long 

Gadgct 

Zeiger auf Gadgct-Struk- 
tur (0 = keine) 

022 

Long 

CheckMark 

Zeiger auf eine Graphik¬ 
struktur für eigene Sym¬ 
bole zum Abhaken von 
Menüpunkten 

026 

Long 

title 

Zeiger auf Windowtitle- 
text, der mit Null endet 

030 

Long 

Scrccn 

Zeiger auf eine 

‘Scrcen'-Struktur 

034 

Long 

BitMap 

Zeiger auf eigene Bit- 
map-Struktur (0 = keine) 

038 

Word 

MinWidth 

Mindestbreite des Fen¬ 
sters 

040 

Word 

MinHeigth 

Mindesthöhe des Fensters 

042 

Word 

MaxWidth 

Maximalbrcitc des Fen¬ 
sters 

044 

Word 

MaxHeigth 

Miximalhöhe des Fen¬ 
sters 

046 

Word 

Screen_Typ 

muß der selbe wie beim 
Screen sein 

048 


END 

Ende der OWArgs-Struk¬ 
tur 
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IDCMP-Flags: 

diese Bits bestimen, bei welchen Ereignissen Intuition dem Pro¬ 
gramm eine Meldung übermitteln soll! 


Bit: 

Wert: 

Bezeichnung: 

Nachricht bei: 

00 

$000001 

SizeVerify 


01 

$000002 

NewSize 

Veränderung der Fenster- 
größc 

02 

$000004 

RefreshWindow 

erneuern eines Windows 

03 

$000008 

MouseButtons 

drücken einer Maustaste 

04 

$000010 

MouseMove 

Bewegungen der Maus 

05 

$000020 

GadGetDown 

Auswahl eines speziellen 
Gadgets 

06 

$000040 

GadgetUp 

s.o. (aber wenn linke 
Maustaste losgclasscn 

wird) 

07 

$000080 

RcqSct 

Erscheinung eines Re- 
questers 

08 

$000100 

McnuPick 

Auswahl eines Me¬ 

nüpunktes 

09 

$000200 

CI ose Window 

schließen des Fensters 

10 

$000400 

RawKey 

drücken einer Taste 

11 

$000800 

RcqVcrify 


12 

$001000 

RcqCIcar 

verschwinden eines Rc- 
questers 

13 

$002000 

MenuVerify 


14 

$004000 

NewPrefs 

ändern der Prcfcrcnccs 

15 

$008000 

Disklnscrtcd 

cinlcgen einer Diskette 

16 

$010000 

DiskRemoved 

Herausnehmen einer Dis¬ 
kette 

17 

$020000 

WBcnchMcssagc 


18 

$040000 

ActivcWindow 

aktivieren des Windows 

19 

$080000 

InActiveWindow 

desaktivieren des Win¬ 
dows 
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20 

$100000 

DcltaMovc 

Mausbewegungen relativ 
melden 

21 

$200000 

VanillaKcy 


TT 

$400000 

IntuiTicks 



Window_Typ: 

die Bits bestimmen die Eigenschaften eines Fensters! 


Bit: 

Wert: 

Bezeichnung: 

Beschreibung: 

00 

$0000001 

WindowSizing 

Fenstergröße veränderbar 

01 

$0000002 

WindowDrag 

Fenster verschiebbar 

02 

$0000004 

WindowDepth 

Fcnstcrübcrlagcrung 

möglich 

03 

$0000008 

WindowClosc 

besitzt ein Fcnstcrsch- 
licßsymbol 

04 

$0000010 

SizeBright 

Vergrößerungsgadget ist 
rechts 

05 

$0000020 

SizeBBottom 

Vergrößerungsgadget ist 
unten 

06 

$0000040 

SimpleRefresh 

Neuzeiehnen manuell 

07 

$0000080 

SuperBitMap 

ganzen Fcnstcrinhalt 

speichern 

08 

$0000100 

BackDrop 

Fenster nach Hinten 

09 

$0000200 

ReportMouse 

Mauskoordinaten melden 

10 

$0000400 

GimmeZeroZero 

Fenster ohne Leiste 

11 

$0000800 

Borde rLcss 

Fenster ohne Ränder 

12 

$0001000 

Activate 

Fenster sofort aktiv 

13 

$0002000 

Window Aktive 

wird von Intuition gesetzt 

14 

$0004000 

InRequest 

wird von Intuition gesetzt 

15 

$0008000 

MenuState 

wird von Intuition gesetzt 

16 

$0010000 

RMBTrap 

bei drücken der rechten 
Maustaste kein Menü 
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17 

$0020000 

NoCareRefresh 

keine Emeuerungsmel 

düng 

24 

$1000000 

WindowRcfrcsh 

wird von Intuition gesetzt 

25 

$2000000 

WBcnchWindow 

wird von Intuition gesetzt 

26 

$4000000 

WindowTicked 

wird von Intuition gesetzt 


*RasInfo*-Struktur: (Länge = 12 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 


000 

Long 

Next 

Zeiger auf 2. 
fo'-Struktur (nur 
DualPlayfield 
wird) 

'Rasln- 

wenn 

benutzt 

004 

Long 

Bitmap 

Zeiger auf 

map*-Struktur 

'Bit- 

008 

Word 

RxOffset 

X-Position in der 
(Normal =0) - für 
Bitmaps, um z.B. 
ling zu erzeugen 

Bitmap 
größere 
, Scrol- 

010 

Word 

RyOffset 

Y-Position in der 
(Normal =0) s.o. 

Bitmap 

012 


END 

Ende der 

fo'-Struktur 

'Rasin- 
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‘RastPort‘-Struktur (Länge = 100 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

Laycr 

Zeiger auf ‘Laycr*- Struk¬ 
tur 

004 

Long 

Bit Map 

Zeiger auf ‘BitMap'- 
Struktur 

008 

Long 

AreaPtrn 

Zeiger auf das AreaFill- 
Mustcr 

012 

Long 

TmpRas 

Zeiger auf 

‘TmpRas'-Struktur 

016 

Long 

Areainfo 

Zeiger auf ‘Arealn- 

fo*-Struktur 

020 

Long 

Gclslnfo 

Zeiger auf “Gclsln- 

fo*-Struktur 

024 

Byte 

Mask 

Schreibmaske (wieviel 

Bitmaps zugclasscn sind) 

025 

Byte 

FgPen 

Farbregisternummer für 
Vordergrundfarbe 

026 

Byte 

BgPcn 

Farbregisternummer der 
Hintergrundfarbe 

027 

Byte 

AOlPcn 

Farbregisternummer der 
ArcaFill-Outlinefarbe 

028 

Byte 

DrawMode 

ZeichenModi (0= Jam 1 , 


l=Jam2, 2=Complcmcnt, 
3~Invcrs) für Routine 
“SetDrMd ()* 


029 

Byte 

AreaPtSz 

Höhe des AreaFill-Mu- 
sters (2'n Words)) 

030 

Byte 

LincPatCNT 

unbenutzt 

031 

Byte 

Dummy 

Line Draw Pattern Pros¬ 
it i ft 

032 

Word 

Flags 

verschiedene Kontrollbits 
(FirstDot,OncDot etc.) 

034 

Word 

LincPtm 

16 Bits für Linienmuster 
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036 

Word 

CP_X 

x-Position des Grafikcur¬ 
sors 

038 

Word 

CP_Y 

y-Position des Grafikcur¬ 
sors 

040 

Byte 

Mintcrms(8) 

8 x 1 Byte für Minterms 
(Funktion unbekannt) 

048 

Word 

Pen Width 

Cursorbreite 

050 

Word 

PenHeight 

Cursorhöhe 

052 

Long 

TextFont 

Zeiger auf ’Text- 

Font’-Stru ktur 

056 

Byte 

AlgoStylc 

Zeichensatzmodus (Sty- 
le-Flag) 

057 

Byte 

TxFIags 

textspezifische Flags 

058 

Word 

TxHeight 

Höhe des Zcichcnsatzcs 

060 

Word 

TxWidth 

durchschnittliche Zci- 

chcnbrcite 

062 

Word 

TxBaseLine 

Texthöhe ohne Unterlän¬ 
gen (für *Tcxt‘-Routinc - 
Wert zu Y-Position addie¬ 
ren = genaue Y-Pos.) 

064 

Word 

TxSpacing 

Zeichenabstand 

066 

Long 

RP-Uscr 

Zeiger auf evtucllc User¬ 
daten (unwichtig!) 

070 

Word 


7 Words reserviert 

084 

Long 


2 Longs reserviert 

092 

Byte 


8 Bytes reserviert 

100 


END 

Ende der Datenstruktur 
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‘Scrccn‘-Struktur: (Länge = 342 Bytes) 

Erhält man in DO zurück, wenn man ’OpcnScrcen 0" aufruft! 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

NcxtScrccn 

Zeiger auf nächsten 

Scrccn 

004 

Long 

FirstWindow 

Zeiger auf erstes Window 
auf diesem Scrccn 

008 

Word 

X Pos 

x-Position des Scrcens 

010 

Word 

Y Pos 

y-Position des Scrcens 

012 

Word 

Width 

Breite der Bitmap 

014 

Word 

Heigth 

Höhe der Bitmap 

016 

Word 

MouseY 

Y-Koordinate des Maus¬ 
pointers 

018 

Word 

MouseX 

X-Koordinatc des Maus¬ 
point c rs 

020 

Word 

ScreenTyp 

siehe Screcn_Typ 

022 

Long 

Title 

Zeiger auf Scrccn-Titlc- 
text 

026 

Long 

STitlc 

Zeiger auf Standart Titlc- 
text 

030 

Byte 


Kopflcistcnhöhc 

031 

Byte 


vertikale Grenze der Ko¬ 
pfleiste 

032 

Byte 


horizontale Grenze der 
Kopfleiste 

033 

Byte 


vertikale Grenze des Me¬ 
nüs 

034 

Byte 


horizontale Grenze des 
Menüs 

035 

Byte 


oberer Fensterrahmen 

036 

Byte 


linker Fensterrahmen 

037 

Byte 


rechter Fensterrahmen 

038 

Byte 


unterer Fensterrahmen 
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039 

Byte 

Pad 

unbenutzt 

040 

Long 

Font 

Zeiger auf Font-Struktur 

040 

— 

ViewPort 

ab hier liegt die View- 
Port-Struktur vom Scrccn 

084 

— 

RastPort 

ab hier liegt die Rast- 
Port-Struktur vom Scrccn 

184 

— 

BitMap 

ab hier liegt die BitMap- 
Struktur vom Screen 

224 

— 

Laycrlnfo 

ab hier liegt die Layerln- 
fo-Struktur vom Scrccn 

326 

Long 

GadGet 

Zeiger auf erste Screen- 
Gadget-Struktur 

330 

Byte 

DetailPen 

Farbregisternummer für 
die Schriftfarbe 

331 

Byte 

BlockPen 

Farbregisternummer für 
die Hintergrundfarbe 

332 

Word 

BackUp 

Backup-Register für 'Dis- 
playBeep ()‘-Routine 

334 

Long 

Extern 

Zeiger auf externe Daten 

338 

Long 

User 

Zeiger auf User Daten 

342 


END 

Ende der 'Screen'- Struk¬ 
tur 


‘SimplcSpritc‘-Struktur: (Länge = 12 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

Datas 

Zeiger auf Spritcdatcn 

004 

Word 

Höhe 

Höhe des Sprites 

006 

Word 

X 

X-Position des Sprites 

008 

Word 

Y 

Y-Position des Sprites 

010 

Word 

Nummer 

Nummer des Sprites (0-7) 

012 


END 

Ende der SimpleSprite 


Struktur 
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‘TextAttr‘-Struktur: (Länge = 8 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

FontName 

Zeiger auf Fontnamen, 
welcher mit Null endet 

004 

Word 

Height 

Fonthöhe (steht im je¬ 
weiligen Fonts-Dir) 

006 

Byte 

Style 

Stil des Fonts (siche 
Text Font-Struktur) 

007 

Byte 

Flags 

Preferences (siehe Text- 
Font-Struktur) 

008 


END 

Ende der TcxtAttr-Struk- 

tur 


‘TextFont‘-Struktur: (Länge =52Bytes) 


Offset: Typ: Bezeichnung: Beschreibung: 


000 

Long 

Succ 

004 

Long 

Pred 

008 

Byte 

Type 

009 

Byte 

Pri 

010 

Long 

Name 

014 

Long 

ReplyPort 

018 

Word 

Lenght 

020 

Word 

YSizc 

022 

Byte 

Style 


Zeiger auf nächsten Font 
Zeiger auf vorrangegan- 
genen Font 
Node-Typ (12 = Font) 
Priorität 

Zeiger auf Fontnamen 
Zeiger auf AntwortPort 
Länge der Message 
Höhe des Zeichensatzes 
Stil des Zcichcnsatzcs: 


Normal normal = 0 

Underline unterstrichen = 1 

Bold fett = 2 

Italic kursiv = 4 

extended = 8 
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023 Byte Flags Prcfcrenccs und Flags: 


ROM-Font = 1 

Disk-Font = 2 

Rev-Path = 4 

Tal lDot =6 
WideDot = 16 

Proportional = 32 

Designed = 64 

Removed = 126 


024 

Word 

XSize 

durchschnittliche Font- 
breite 

026 

Word 

Baseline 

Fonthöhe ohne Unterlän¬ 
gen 

028 

Word 

BoldSmear 

Smear-Effekt für Fett¬ 
druck 

030 

Word 

Acccssors 

Zugriffszählcr (Null 

Font wird gelöscht) 

032 

Byte 

LoChar 

ASCII-Codc des ersten 
Zeichens 

033 

Byte 

HiChar 

ASCII-Code des letzten 
Zeichens 

034 

Long 

CharData 

Zeiger auf Zcichensatz- 
daten 

038 

Word 

Modulo 

Bytes pro Zcichensatz- 
Zcilc 

040 

Long 

CharLoc 

Zeiger auf Offset-Daten 
für Zcichendccodicrung 

044 

Long 

CharSpacc 

Zeiger auf Brcitcn-Tabcl- 
lc der Zeichen 

048 

Long 

CharKcrn 

Zeiger auf Zeichcnkcrn 
der Tabelle 

052 


END 

Ende der TcxFont-Struk- 


tur 
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‘UCopList* 

-Struktur (Länge = 12 Bytes 

- Mit ‘AllocMcm 0‘ rcscr- 

vieren): 




Offset: 

Typ: 

Bezeichnung: 

Bcschrcibung: 

000 

Long 

NextUCopList 

Zeiger auf nächste Uscr- 
Coppcrl ist-Struktur 

004 

Long 


Zeiger auf erste Copperli¬ 
ste die von 'MakeVPort 




()' angelegt wurde 

008 

Long 


Zeiger auf dieser Struktur 
zugehörigen Coppcrlistc 

012 


END 

Ende der 'UCopList'- 
Stru ktur 

‘Vicw‘-Struktur: (Länge = 18 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

ViewPort 

Zeiger auf erste ‘View- 
Port'-Struktur 

004 

Long 

LOFCprList 

Zeiger auf LongFramc- 
Coppcrlistc wird mit 

'MrgCop ()' erzeugt 

008 

LONG 

SHFCprList 

Zeiger auf ShortFramc- 
Copperliste 

012 

Word 

DyOffset 

y-Position des Displays 
(wird vom System init.) 

014 

Word 

DxOffset 

x-Position des Displays 
(wird vom System init.) 

016 

Word 

Modes 

Modus-Flag (Inerlacc- 

Flag hier setzen, falls ge¬ 
wünscht) 

018 


END 

Ende der ‘View'-Struktur 
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‘ViewPort‘-Struktur: (Länge = 40 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

Next 


Zeiger auf nächste 

“ViewPort “-Struktur 

004 

Long 

Col orMap 


Zeiger auf “Color- 

Map‘-Struktur 

008 

Long 

Dsplns 


Zeiger auf Display-Cop- 
pcrliststruktur 

012 

Long 

Sprlns 


Zeiger auf Sprite-Copper- 
liststrukturl 

016 

Long 

Clrlns 


Zeiger auf Sprite-Copper- 
liststruktur2 

020 

Long 

UCopList 


Zeiger auf “UCo- 

pList'-Struktur (fr User) 

024 

Word 

DWidth 


Breite des Displays 

(Scrcen) in Pixel 

026 

Word 

DHeight 


Höhe des Displays 

(Scrcen) in Zeilen 

028 

Word 

DxOffset 


X-Pos. des Displays 

(Scrcen) 

030 

Word 

DyOffset 


Y-Pos. des Displays 

(Screen) 

032 

Word 

Modes 

Wert 

ViewPort-Modi: 

$0000 = Normal 



Bit 1=1 

Wert 

$0002 = GenlockVideo 



Bit 2=1 

Wert 

$0004 = Interlace 



Bit 6=1 

Wert 

$0040 = PFBA 



Bit 7=1 

Wert 

$0080 = Extra-Haifbrite 



Bit 8=1 

Wert 

$0100 = Gen 1ockAudio 



Bit 10=1 

Wert 

$0400 = DualPlayField 



Bit 11=1 

Wert 

$0800 = Hold and Modify 



Bit 13=1 

Wert 

$2000 = VP-Hide 



Bit 14=1 

Wert 

$4000 = Sprites 



Bit 15=1 

Wert 

$8000 = Hires (Breite 640) 
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034 

036 

040 

Word 

Long 

reserved 

Rasinfo 

END 

reserviert 

Zeiger auf 'Raslnfo'- 
Struktur 

Ende der 'ViewPort'- 
Struktur 

‘VSprite* 

-Struktur für Sprites: (Länge 

= 58 Bytes) 

Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

NcxtVSpritc 

Zeiger auf nächste 

‘VSpritc'-Struktur 

004 

Long 

PrcvVSpritc 

Zeiger auf Vorgänger 
‘VSpritc'-Struktur 

008 

Long 

DrawPath 

wird nur vom System be¬ 
nutzt 

012 

Long 

ClcarPath 

wird nur vom System be¬ 
nutzt 

016 

Word 

OldY 

alte y-Position vom 

VSprite (System-Varia¬ 

ble) 

018 

Word 

OldX 

alte x-Position vom 

VSprite (System-Varia¬ 

ble) 

020 

Word 

Flags 

beschreibt wie das GEL 
zu behandeln ist: 


VSprite 

Bit 0 = 1, 

dann Gel ist ein VSprite 
sonst BOB 


SaveBack 

Bit 1 = 1. 

Hintergrund wird gespei¬ 
chert 


Overlay 

Bit 2 = 1, 

nur gesetzte Bits des Gels 
werden in die Grafik ko¬ 
piert 
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MustDraw 

Bit 3 = 1, 

für VSprites (Farben spei¬ 
chern) 


BackSaved 

Bit 8 = 1, 

Hintergrund wurde Gespei¬ 
chert (System) 

022 

Word 

Y 

Y-Position des VSprites 

024 

Word 

X 

X-Position des VSprites 

026 

Word 

Heigth 

Höhe des VSprites (An¬ 
zahl Zeilen) 

028 

Word 

Width 

Breite des VSprites (An¬ 
zahl in Words) 

030 

Word 

Depth 

Anzahl Bitplancs (Tiefe) 

032 

Word 

MeMask 

siche Kapitel Collisionen 

034 

Word 

HitMask 

siche Kapitel Collisionen 

036 

Long 

ImageData 

Zeiger auf Grafikdaten 
vom VSprite (Datas) 

040 

Long 

Bordcrlinc 

siche Kapitel Collisioncn 

044 

Long 

CollMask 

siehe Kapitel Collisionen 

048 

Long 

SprColors 

Zeiger auf Puffer mit 4 
Words für Farbspciche- 
rung 

052 

Long 

Bob 

Zeiger auf 

‘BOB“-Struktur, (bei 

VSprites = 0) 

056 

Byte 

PlancPick 

unwichtig (auf Null set¬ 
zen) 

057 

Byte 

PlancOnOff 

unwichtig (auf Null set¬ 
zen) 

058 


END 

Ende der ‘VSpri- 

tc’-Struktur 
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‘VSpritc‘-Struktur für BOBs: (Länge = 58 Bytes) 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

NextVSprite 

Zeiger auf nächste 

' VSprite “-Struktur 

004 

Long 

PrcvVSpritc 

Zeiger auf Vorgänger 
‘VSpritc'-Struktur 

008 

Long 

DrawPath 

wird nur vom System be¬ 
nutzt 

012 

Long 

ClearPath 

wird nur vom System be¬ 
nutzt 

016 

Word 

OldY 

alte y-Position vom BOB 
(System-Variable) 

018 

Word 

OldX 

alte x-Position vom BOB 
(System-Variable) 

020 

Word 

Flags 

beschreibt wie das GEL 
zu behandeln ist: 


SaveBack 

Bit 1 = 1. 

Hintergrund wird gespei¬ 
chert 


Overlay 

Bit 2 = 1 

nur gesetzte Bits des BOBs 
werden in die Grafik ko¬ 
piert 

022 

Word 

Y 

Y-Position des BOBs 

024 

Word 

X 

X-Position des BOBs 

026 

Word 

Heigth 

Höhe des BOBs (Anzahl 
Zeilen) 

028 

Word 

Width 

Breite des BOBs (Anzahl 
in Words) 

030 

Word 

Depth 

Anzahl Bitplancs (Tiefe) 

032 

Word 

MeMask 

siehe Kapitel Collisioncn 

034 

Word 

HitMask 

siehe Kapitel Collisioncn 

036 

Long 

ImageData 

Zeiger auf Grafikdaten 
vom BOB (Datas) 

040 

Long 

Borde rlinc 

siehe Kapitel Collisioncn 
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(Wichtig) 


044 

Long 

CollMask 

siche Kapitel Collisionen 

048 

Long 

SprColors 

unwichtig 

052 

Long 

Bob 

Zeiger auf 

‘BOB‘-Struktur 

056 

Byte 

PlanePick 

siehe unten 

057 

Byte 

PlancOnOff 

siche unten 

058 


END 

Ende der ‘VSpritc'- 

Stru ktur 


‘Window‘-Struktur: (Länge = 124 Bytes) 

Erhält man in DO zurück, wenn man 'OpenWindow ()' aufruft! 


Offset: 

Typ: 

Bezeichnung: 

Beschreibung: 

000 

Long 

NextWindwo 

Zeiger auf nächste Fen¬ 
sterstruktur 

004 

Word 

x-Pos 

x-Position des Windows, 
relativ zum Screcn 

006 

Word 

y-Pos 

y-Position des Windows, 
relativ zum Screen 

008 

Word 

Width 

Breite des Fensters 

010 

Word 

Heigth 

Höhe des Fensters 

012 

Word 

DeltaMouseY 

Y-Koordinate der Maus, 
relativ zum Fenster 

014 

Word 

DcltaMouscX 

X-Koordinatc der Maus, 
relativ zum Fenster 

016 

Word 

MinWidth 

minimale Breite des Fen¬ 
sters 

018 

Word 

M in Heigth 

minimale Höhe des Fen¬ 
sters 

020 

Word 

MaxWidth 

maximale Breite des Fen¬ 
sters 
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022 

Word 

MaxHeigth 

maximale Höhe des Fen¬ 
sters 

024 

Long 

WindowTyp 

siche oben (Window_Typ) 

028 

Long 

Menu 

Zeiger auf Menüstruktur 

032 

Long 

Title 

Zeiger auf TitlcText 

036 

Long 

FirstRequest 

Zeiger auf erste aktive 
Requesterstruktur 

040 

Long 

DKRequest 

Zeiger auf Doublc- 

Click-Requesterstru ktur 

044 

Word 

BRequest 

Anzahl der Requester, die 
das Fenster sperren 

046 

Long 

Screcn 

Zeiger auf 

"Scrcen'-Struktur 

050 

Long 

Rast Port 

Zeiger auf “Rast- 

Port'-Struktur des Fen¬ 
sters 

054 

Byte 


Linker Rahmen 

055 

Byte 


Oberer Rahmen 

056 

Byte 


Rechter Rahmen 

057 

Byte 


Unterer Rahmen 

058 

Long 

R Rast Port 

Zeiger auf Rahmen-Rast- 
Port-Stru ktur 

062 

Long 

Gadget 

Zeiger auf erste Gadget- 
Stru ktur 

066 

Long 


Zeiger auf Eltern-Fen- 
ster-Struktur 

070 

Long 


Zeiger auf Kind-Fcnstcr- 
Struktur 

074 

Long 

SprData 

Zeiger auf SpriteData für 
MausPointcr 

078 

Byte 

SprHeigth 

Höhe des Spritepointers 

079 

Byte 

SprWidth 

Breite des Spritepointers 
(max. 16) 

080 

Byte 

XOffset 

x-Offset des Spritepoin¬ 
ters 

081 

Byte 

YOffset 

y-Offset des Spritepoin- 
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082 

Long 

IDCMP-Flag 

ters 

siehe oben 

086 

Long 

UMessagePort 

Uscr-Message-Port 

090 

Long 

WMessagePort 

Fenster-Message-Port 

094 

Long 

MessageKey 

In t u i t i on -M cssagc -Port 

098 

Byte 

DetailPen 

Farbregisternummer der 

099 

Byte 

BlockPen 

Schriftfarbe 

Farbregisternummer der 

100 

Long 


Hintergrundfarbe 

Zeiger auf eigene Me- 

104 

Long 

STitle 

n ü-Hakensym bol e-Struktur 
Zeiger auf Screen-Title- 

108 

Word 

GZZ-MausX 

text 

110 

Word 

GZZ-MausY 


112 

Word 

GZZ-Width 


114 

Word 

GZZ-Hcigth 


116 

Long 

Extern 

Zeiger auf Externe Daten 

120 

Long 

User 

Zeiger auf User Daten 

124 


END 

Ende der “Win- 




dow’-Stru ktur 
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Anhang B 


Library-Funktionen im Überblick 


Anhang B - Library-Funktionen im Überblick 

In diesem Anhang finden sic alle Routinen im Überblick, welche 
im Buch verwendet wurden (alphabetisch geordnet): 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


AddAniiOb (AniiOb,HeadOb,RastPort) (A0,Al,A2) 

graphics.Iibrary 
-156 = - S 9c 

AO = Zeiger auf angelegte 'AnimOb'-Struktur 
Al = Zeiger auf einen Puffer von 4 Bytes (dc.l 01. Die¬ 
ser Puffer zeigt immer auf das zuletzt eingefügte 
'AnimOb'. Beim ersten Aufruf dieser Routine, muß 
dieser Puffer mit Null gefüllt sein. 

A2 = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine fügt ein Objekt zum Gelsystem hinzu. 


Routine : AddBob (BOB,RastPort) (AO,Al) 

Library : graphics.1ibrary 
Offset : -96 = -S60 

Parameter: AO = Zeiger auf angelegte 'BOB'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine führt einen BOB zum Gelsystem hinzu. 'BOB'- 
und 'VSprite'-Struktur müssen vorher miteinander verbun¬ 
den werden! 
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Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 

Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


AddlntServer (Nuaaer,Interrupt) (DO,Al) 

exec.1ibrary 
-166 = -$A8 

DO = Interruptnummer - welcher IRQ benutzt werden soll 
(Erlaubt sind: 3, 5, 13, 15) 

Al = Zeiger auf Interrupt-Struktur (siehe oben) 
keine 

Diese Routine fügt einen Interrupt zum System hinzu 


AddVSprite (VSprite,RastPort) (AO.Al) 

graphics.Iibrary 
-102 = -S 66 

A0 = Zeiger auf angelegte 'VSprite'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine führt ein VSprite zum Gelsystem hinzu. Um 
ein VSprite erscheinen zu lassen, müssen die Copperlisten 
neu berechnet werden! 


Aniaate (HeadOb,RastPort) (A0,Al) 

graphics. 1ibrary 
-162 = - Sa 2 

A0 = Zeiger auf einen Puffer von 4 Bytes (dc.l 0). Die¬ 
ser Puffer zeigt immer auf das zuletzt eingefügte 
'AnimOb'. (s.o.) 

Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine animiert ein Objekt. Es berechnet entspre- 
chent die Werte in den Strukturen neu. Mit 'SortGList ()' 
und 'DrawGList ()' kann man dann das Objekt auf den 
Bildschirm darstellen. 
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Routine : AskSoftStyle (RastPort) (Al) 

Library graphics.Iibrary 

Offset -64 = -S 54 

Parameter: Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

Rückgabe : in DO = Stylebyte welches den aktuellen Modus des 

Fonts wiederspiegelt. 

Stylenane: Wert: Bit: Funktion: 

Normal 0 - normal 

Underline 1 0 unterstrichen 

Bold 2 1 fett 

Italic 4 2 kursiv 

6 3 extended 

Erklärung: Diese Routine gibt in DO den Style-Modus zurück, welcher 
gerade aktiv ist. Es sind auch mehrere Styls auf einmal 
möglich. Man braucht dazu lediglich die einzelnen Werte 
zusammenaddieren. 


Funktion : CBuip (UCopList) (Al) 

Library graphics.1ibrary 
Offset -366 = -S16e 

Parameter: Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
Rückgabe : keine 

Erklärung: Diese Routine erhöht den internen Zeiger der UserCopper- 
liste. Muß nach jedem ’CWait (I' und 'CMove ()' aufgeru¬ 
fen werden! 


Routine : ChangeSprite (ViewPort,SiipleSprite,Data) (A0,Al,A2) 

Library : graphics .1 ibrary 

Offset : -420 = -Sla4 

Parameter : A0 = Zeiger auf Viewport in dem der Sprite dargestellt 

werden solI. 

Al = Zeiger auf SimpleSprite-Struktur des Sprites 
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Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


AddlntServer (Nuner,Interrupt) (DO,Al) 

exec.Iibrary 
-166 = -$A6 

DO = Interruptnummer - welcher IRQ benutzt werden soll 
(Erlaubt sind: 3, 5, 13, 15) 

Al = Zeiger auf Interrupt-Struktur (siehe oben) 
keine 

Diese Routine fügt einen Interrupt zum System hinzu 


Routine : AddVSprite (VSprite,RastPort) (A0,Al) 

Library graphics. I ibrary 
Offset : -102 = -$66 

Parameter: A0 = Zeiger auf angelegte 'VSprite'-Struktur 
Al = Zeiger auf 'RastPort'-Struktur 
Rückgabe : keine 

Erklärung: Diese Routine führt ein VSprite zum Gelsystem hinzu. Um 
ein VSprite erscheinen zu lassen, müssen die Copperlisten 
neu berechnet werden! 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Aniiate (Headob,RastPort) (A0,Al) 

graphics. I ibrary 
-162 = -Sa2 

A0 = Zeiger auf einen Puffer von 4 Bytes (dc.l 0). Die¬ 
ser Puffer zeigt immer auf das zuletzt eingefügte 
'AnimOb'. (s.o. ) 

Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine animiert ein Objekt. Es berechnet entspre- 
chent die Werte in den Strukturen neu. Mit 'SortGList ()' 
und 'DrawGList ()' kann man dann das Objekt auf den 
Bildschirm darstellen. 
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Routine : 

Library : 
Offset 
Parameter: 

Rückgabe : 


Erklärung: 


Funktion 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


Routine 

Library 

Offset 

Parameter 


AskSoftStyle (RastPort) (Al) 

graphics.Iibrary 


-64 = -$54 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 
in DO = Stylebyte welches den aktuellen Modus des 
Fonts wiederspiegelt. 

Wert: Bit: Funktion: 


Stylenaoe: 
Normal 
Underline 
Bold 
Italic 


0 


normal 

unterstrichen 

fett 

kursiv 

extended 


Diese Routine gibt in DO den Style-Modus zurück, welcher 
gerade aktiv ist. Es sind auch mehrere Styis auf einmal 
möglich. Man braucht dazu lediglich die einzelnen Werte 
zusammenaddieren. 


CBuip (UCopList) (Al) 

graphics.Iibrarv 
-366 = -S16e 

Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
keine 

Diese Routine erhöht den internen Zeiger der UserCopper- 
liste. Muß nach jedem 'CWait I)' und 'CMove ()' aufgeru¬ 
fen werden! 


ChangeSprite (Viewport,SiipleSprite,Data) (A0,Al,A2) 

graphics.Iibrary 
-420 = -S1a 4 

A0 = Zeiger auf Viewport in dem der Sprite dargestellt 
werden soll. 

Al = Zeiger auf SimpleSprite-Struktur des Sprites 
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A2 = Zeiger auf Spritedatas (Adresse steht in der Sim- 
pleSprite-Struktur) 

Rückgabe : keine 

Erklärung : Diese Routine aktiviert einen Sprite auf dem Bildschirm. 


Routine : CloseFont (TextFont) (Al) 

Library graphics. I ibrary 

Offset -76 = -S4e 

Parameter: Al = Zeiger auf eine TextFont-Struktur den wird durch 
die Routine "OpenDiskFont" in DO erhalten haben 

Rückgabe : keine 

Erklärung: Diese Routine schließt einen Font wieder. Erst wenn ein 
Font geschlossen wurde, kann der Speicher, den er belegt 


wieder freigegeben werden. 


Routine : 

Library : 

Offset 

Parameter: 

Rückgabe : 
Erklärung: 


CloseScreen (Screen) (AO) 

intuition. I ibrarv 
-66 = -$42 

AO = Zeiger auf 'Screen-Struktur'. welchen man in DO 
durch die Routine 'OpenScreen i 1 ‘ erhält 

keine 

Diese Routine schließt einen Screen auf den der Zeiger in 
AO zeigt. Diesen Zeiger erhält man mit 'OpenScreen ()'. 


Routine : 

Library 
Offset 
Parameter: 

Rückgabe : 
Erklärung: 


CloseWindow (Window) (AO) 

intuition.Iibrary 
-72 = -$46 

AO = Zeiger auf 'Window-Struktur', welchen man in DO 
durch die Routine 'OpenWindow ()' erhält 

keine 

Diese Routine schließt ein Window auf den der Zeiger in 
AO zeigt. Diesen Zeiger erhält man mit 'OpenWindow ()'. 
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Funktion 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Funktion 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


CMove (UCopList.,Registernuuer,Wert) (Al,DO,Dl) 

graphics.I ibrary 
-372 = *$174 

Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
DO = Registernr. (z. B. #$löO für Hintergrundfarbregi- 
sterl die Basisadresse wird nicht dabei übergeben 
(Basis = SDff 000 ) 

Dl = Wert (z. B. #$00 für schwarze Farbe) 
keine 

Diese Routine führt einen 'Move'-Befehl in die angelegte 
UserCopperliste ein. 


CWait (UCopList,YPosition.XPosition) (Al,DO,Dl) 

graphics. 1ibrary 
-376 = -S17a 

Al = Zeiger auf 'UCopList'-Struktur die angelegt wurde 
DO = Y-Position des Rasterstrahls auf die gewartet wer¬ 
den sol 1 

Dl = X-Position des Rasterstrahls auf die gewartet wer¬ 
den soll nur in vierer Schritten möglich 

keine 

Diese Routine führt einen 'Wait'-Befehl in die angelegte 
UserCopperliste ein. 


DoColIision (RastPort) (Al) 

graphics.1ibrary 
-106 = -$6c 

Al = Zeiger auf RasterPort-Struktur 
keine 

Diese Routine testet ob eine Collision stattgefunden hat, 
und springt dann in die entsprechende Collisionsroutine. 
Bei BOB-BOB-ColIisionen wird der angesprungenen Routine 
in Al die Adresse des Oberen VSprites und in A2 die des 
unteren USprites übergeben. Bei Randberührungen, wird der 
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angesprungenen Collisionsroutine (Nummer Null) in A3 
Adresse des VSprites übergeben. 

die 

Routine 

DrawGList (RastPort,ViewPort) (A1,A0) 


Library 

graphics. 1 ibrary 


Offset 

-114 = -S72 


Parameter 

AO = Zeiger auf 'ViewPort'-Struktur 

Al = Zeiger auf 'RastPort'-Struktur 


Rückgabe 

keine 


Erklärung 

Diese Routine zeichnet alle BOBs auf den Bildschirm 

bzw. 


in die Bitmap und generiert für alle VSprites eine 
Copperliste. 

neue 

Routine 

FreeColorMap (ColorMap) (AO) 


Library 

graphics.1ibrary 


Offset 

-576 = -$240 


Parameter 

AO = Anfangsadresse der ColorMap-Struktur, die mit 
Routine 'GetColorMap ()' angelegt wurde 

der 

Rückgabe 

keine 


Erklärung 

Diese Routine gibt den Speicher wieder frei, der 

mit 


'GetColorMap ( )' für die 'ColorMap'-Struktur angelegt 
wurde. 


Routine : 

FreeCprList (CprList) (AO) 

Library : 

graphics.1ibrary 

Offset 

-564 = -$234 

Parameter: 

AO = Anfangsadresse der LongFrame-Copper1iststruktur, 
diese ist in der View-Struktur bei Offset 4 zu 
finden. Bei Hi res muß auch ShortF rame-Copper 1 ist¬ 
struktur wieder freigegeben werden. (Offset 6) 

Rückgabe : 

keine 
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Erklärung: Diese Routine gibt den Speicher wieder frei, der für die 
LongFrame-Copper1iststruktur durch die Routine ’MrgCop 
l )' vom System belegt wurde. 


Routine : FreeSprite (Nummer) (DO) 

Library : graphics.1ibrary 

Offset : -414 = -S19e 

Parameter: DO = Spritenummer (von 0 bis 7) 

Rückgabe : keine 

Erklärung: Diese Routine gibt ein reserviertes Sprite vom System 
wieder frei. 


Routine : FreeVPortCopLists (Viewport) (AO) 

Library graphics.1ibrary 

Offset : -540 = -S 21c 

Parameter: AO = Anfangsadresse der 'V/iewPort'-Struktur 

Rückgabe : keine 

Erklärung: Diese Routine gibt den Speicher wieder frei, der für die 
einzelnen Copperlisten durch die Routine 'MakeVPort ()’ 
vom System belegt wurde. 

Routine : GetColorMap (entries) (DO) 

Library : graphics.1ibrary 

Offset : -570 = -S 23a 

Parameter: DO = Anzahl Farben (max. 32 Farben) 

Rückgabe : in DO = Anfangsadresse der vom System angelegten 'Color- 
Map'-Struktur 

Erklärung: Diese Routine erzeugt eine ColorMap-Struktur, deren 
Adresse in DO zurückgegeben wird. Wenn eine Null zurück¬ 
gegeben wird, dann konnte nicht genug Speicher für diese 
Routine angelegt werden. Diese vom System angelegte 
Struktur muß man dann nur noch mit der 'View- 
Port '-Struktur verbinden (Offset 41. 
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Routine 

Library 
Of f set 
Parameter 


Rückgabe : 
Erklärung: 


GetRGB4 (ColorMap,entry) (A0,D0) 

graphics. 1 ibrary 
-562 = -$246 

AO = Anfangsadresse der zu diesem Display gehörenden 
ColorMap-Struktur 

DO = Farbregisternummer, aus dem der Farbwert entnommen 
werden soll 10-311 

in DO = Farbwert des angegebenen Farbregisters 
Diese Routine gibt den Farbwert des gewünschten Farbre¬ 
gisters in DO zurück. 


Routine : 

Library : 

Offset 

Parameter: 

Rückgabe : 

Erklärung: 


GetSprite (SimpleSprite,Nummer) (A0,D0) 

graphics.1ibrary 
-406 = -$196 

AO = Zeiger auf SimpleSprite-Struktur des Sprites 
DO = Spritenummer ivon 0 bis 71 
DO = Spritenummer welcher vorher übergeben wurde 
= -1 für Sprite konnte nicht reserviert werden 
Diese Routine reserviert einen Sprite, welcher dann ma- 
nipuliert werden kann. 


Routine 

Library 
Of f set 
Parameter 


Rückgabe : 
Erklärung: 


InitBitMap (BitMap,depth,width,heigth) (A0.D0.Dl.D2) 

graphics.1ibrarv 
-390 = -$166 

A0 = Anfangsadresse der angelegten 'BitMap'-Struktur 
DO = Anzahl Bitplanes (Tiefe) 

Dl = Breite der Bitmap 
D2 = Höhe der Bitmap 
keine 

Diese Routine initialisiert die angelegte 'Bit- 
Map' -Struktur mit den wichtigsten Werten. Die P1 a - 
nePtrX-Adressen müssen dann nur noch in der BitMap- 
Struktur von Ihnen selbst eingetragen werden. 
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Routine 

InitGels ( Ge 1Head,Ge 1 Tai1,Geisinfo) (A0,Al,A2) 


Library 

graphics .1ibrary 


Offset 

-120 = - $ 76 


Parameter 

AO = Zeiger auf einen Puffer mit 56 Null-Bytes 

Al = Zeiger auf einen Puffer mit 56 Null-Bytes 

A2 = Zeiger auf angelete 'Gelslnfo'-Struktur 


Rückgabe 

keine 


Erklärung 

Diese Routine initialisiert das Gelsystem. Die 

Gelsln- 


fo'- Struktur braucht dann nur noch mit der 
Port'-Struktur verbunden werden (Offset 201! 

'Rast- 

Routine 

InitMasks (VSprite) (AO) 


Library 

graphics.1ibrary 


Offset 

-126 = -S 7e 


Parameter 

AO = Zeiger auf angelegte 'VSprite'-Struktur 


Rückgabe 

keine 


Erklärung 

Diese Routine initialisiert die Variablen 'CollMask', 

'BorderLine', und 'ImageShadow'. Es muß natürlich 
genügend Speicher reserviert worden sein. 

vorher 


Routine 

InitRastPort (RastPort) (Al) 


Library 

graphics.1ibrary 


Offset 

-196 = -$c6 


Parameter 

Al = Anfangsadresse der 'RastPort'-Struktur die 

man an- 


gelegt hat 


Rückgabe 

keine 


Erklärung 

Diese Routine initialisiert die angelegte 
Port'-Struktur mit den wichtigsten Werten 

'Rast- 

Routine 

InitView (View) (Al) 


Library 

graphics.1ibrary 


Offset 

-360 = -S166 


Parameter 

Al = Anfangsadresse der angelegten 'View'-Struktur 
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Rückgabe : keine 

Erklärung: Diese Routine initialisiert die angelegte 'View'-Struktur 
mit den wichtigsten Werten 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


InitVPort (Viewport) (AO) 

graphics.1ibrary 
-204 = -Scc 

AO = Anfangsadresse der angelegten 'ViewPort'-Struktur 
keine 

Diese Routine initialisiert die angelegte 'View- 
Port'-Struktur mit den wichtigsten Werten 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


LoadRGB4 (ViewPort,Colors,Count) (A0,Al,D0) 
graphics.1ibrary 
-192 = -ScO 

AO = Anfangsadresse der zu diesem Display gehörenden 
ViewPort-Struktur 

Al = Anfangsadresse vom einem 32 Word großen Array, in 
denen sich die Farbwerte befinden 
DO = Anzahl der Farbregister welche mit neuen Farben 
gefüllt werden soll 

keine 

Diese Routine lädt in die ColorMap des angegebenen View- 
Ports die gewünschten Farbwerte, welche sich in dem Array 
befinden. Es müssen danach aber erst die Copperlisten neu 
berechnet werden, damit der Farbwechsel sichtbar wird. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 


LoadView (View) (Al) 

graphics.1ibrary 
-222 = -Sde 

Al = Anfangsadresse der 'View'-Struktur 
keine 
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Erklärung: Diese Routine startet die Copperliste, auf die die Long- 
Frame-Copper1ist-Struktur zeigt, über die Hardware. Und 
erzeugt somit das fertige Bild. 


Routine 

Library 

Offset 

Parameter 

Rückgabe 

Erklärung 


MakeScreen (Screen) (AO) 

intuition.library 
-376 = -S17a 

AO = Zeiger auf 'Screen'-Struktur 
keine 

Diese Routine führt die Funktion 'MakeVPort ()' für den 
ViewPort des angegebenen Screen durch. 


Routine : 
Library : 
Offset 
Parameter: 

Rückgabe : 
Erklärung: 


MakeVPort (View,ViewPort) (AO,Al) 

graphics.1ibrary 
-216 = -Sdö 

AO = Anfangsadresse der 'View'-Struktur 
Al = Anfangsadresse der 'ViewPort'-Struktur 
keine 

Diese Routine erzeugt die einzelnen Copperliststrukturen 
und setzt diese in die entsprechenden Zeiger in der 
'ViewPort'-Struktur ein. Vorher muß natürlich die View- 
Port-Struktur mit der View-Struktur verbunden werden. 


Routine 

Library 

Offset 


Erklärung: 


Move (RastPort,X.Y) (Al,DO,Dl) 

graphics.1ibrary 
-240 = -SfO 

Al = Zeiger auf RastPort-Struktur 
DO = Position der X-Koordinate 
Dl = Position der Y-Koordinate 

Diese Routine setzt die Koordinaten im entsprechenden 
RastPort. Ab diesen Positionen wird dann der Text bzw. 
die Linie dargestel1t. 
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Routine 

Library 
Of f sei 
Parameter 


Rückgabe : 
Erklärung: 


MoveSprite (Viewport,SimpleSprite,X,Y) (AO.Al,D0,Dl) 

graphics.1ibrary 
-426 = -Slaa 

AO = Zeiger auf Viewport in dem der Sprite dargestellt 
werden sol1. 

Al = Zeiger auf SimpleSprite-Struktur des Sprites 
DO = X-Position an der der Sprite erscheinen soll 
Dl = Y-Position an der der Sprite erscheinen soll 
keine 

Diese Routine läßt den Sprite auf die angegebenen Koor¬ 
dinaten erscheinen. 


Routine 

Library 
Off set 
Parameter 
Rückgabe 
Erklärung 


MrgCop (view) (Al) 

graphics. 1ibrarv 
-210 = -Sd2 

Al = Anfangsadresse der 'View'-Struktur 
keine 

Diese Routine erzeugt aus den einzelnen Copperliststruk- 
turen die mit 'MakeVPort M' erzeugt wurden eine einzige 
Copperlist-Struktur. Diese wird dann in die View-Struktur 
eingehängt (LongErame-Copperliststruktur1 


Routine 

Library 

Offset 

Parameter 

Rückgabe 


Erklärung: 


OpenDiskFont (TextAttr) (AO) 

diskfont. 1ibrarv (befindet sich auf Disk - Workbenchl 
-30 = -Sie 

AO = Zeiger auf eine Text-Attribut-Struktur. welche den 
gewünschten Font genauer beschreibt. Isiehe untenI 
DO = Zeiger auf TextFont-Struktur (siehe Aufbau der 
Fonts), die zu diesem Font gehört: oder Null wenn 
Error aufgetreten ist. 

Diese Routine lädt einen Font von Disk in den Speicher 
und legt die dazugehörige TextFont-Struktur an. 
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Rückgabe : keine 

Erklärung: Diese Routine entfernt einen Interrupt wieder aus dem 
System 


Routine 

RemVSprite (VSprite) (AO) 

Library 

graphics.1ibrary 

Of f set 

-136 = - S 6a 

Parameter 

AO = Zeiger auf angelegte VSprite'-Struktur 

Rückgabe 

keine 

Erklärung 

Diese Routine entfernt ein VSprite für immer aus dem 
Gelsvstem! 


Routine 

RethinkDisplay 0 


Library 

intuition.1ibrarv 


Of f set 

-390 = -S166 


Parameter 

keine 


Rückgabe 

keine 


Erklärung 

Ruft für alle Screens 'MrgCop II' und 'Loadview 1) 

auf 

Routine 

Scrol 1 Raster (RastPort,DX,DY,MinX,MinY,MaxX,MaxY) 
bis D5) 

(Al,DO 

Library 

graphics.1ibrary 


Offset 

-396 = -S16 c 


Parameter 

Al = Zeiger auf RastPort-Struktur 

DO = Anzahl X-Punkte um die gescrollt werden soll 
Dl = Anzhal Y-Punkte um die gescrollt werden soll 
D2 = Anfangs X-Koordinate 

D3 = Anfangs Y-Koordinate 

D4 = End X-Koordinate 

D5 = End Y-Koordinate 


Erklärung 

Diese Routine scrollt den angegebenen Bereich 
entsprechende Anzahl von Punkten 

um die 
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Routine : 

SetAPen (RastPort,Pen) (Al,DO) 


Library : 

graphics.1ibrarv 


Offset 

-342 = -S156 


Parameter: 

Al = Zeiger auf RastPort-Struktur 



DO = Farbregisternummer aus dem die 
nommem werden soll. 

Schriftfarbe ent- 

Erklärung: 

Diese Routine setzt die Schriftfarbe 
RastPort. 

im entsprechenden 


Routine 

Library 

Offset 

Parameter 


Erklärung: 


SetBPen (RastPort,Pen) (Al,DO) 

graphics. 1ibrary 
-346 = -S15c 

Al = Zeiger auf RastPort-Struktur 

DO = Farbregisternummer. aus dem die Hintergrundfarbe 
entnommem werden sol1. 

Diese Routine setzt die Hintergrundfarbe für die Text¬ 
ausgabe im entsprechenden RastPort. 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


SetCol1ision (Type,Routine,Gelsinfo) (DO,AO,Al) 

graphics.1ibrary 
-144 = - S 90 

DO = Nummer der Collisionsroutine (0-151 
AO = Zeiger auf Collisionsroutine die mit einem RTS en¬ 
det 

Al = Zeiger auf Gelslnfo-Struktur 
keine 

Diese Routine init. eine Collsionsroutine mit angegebener 
Nummer. Die Adresse der Colisionsroutine wird in den 
'Col1 Hand 1 er'- Puffer eingetragen. 


317 









Anhang B 


Library-Funktionen im Überblick 


Routine 

Library 

Offset 

Parameter 


Erklärung: 


Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 


SetDrMd (RastPort,DrawMode) (Al,DO) 

graphics.1ibrary 
-354 = -$162 


Al = Zeiger auf RastPort-Struktur 

DO = Zeichenmodus für die Textausgabe: 

Naae: Bit: Funktion: 

JAM1 - Es wird nur in der Farbe des APens ge¬ 

malt 

JAM2 0 Es wird mit der Farbe des BPens unter¬ 

legt 

Complement 1 Nur gesetzte Punkte werden in Screen 

ausgegeben 

Inversvid 2 Text wird invertiert ausgegeben 


Diese Routine setzt den Zeichenmodus für die Textausgabe 
im entsprechenden RastPort. 


SetFont (RastPort,TextFont) (Al,A0) 

graphics.1ibrary 
-66 = -S 42 

Al = Zeiger auf eine Rasterportstruktur in dem der ge¬ 
wünschte Font aktiviert werden soll. 

AO = Zeiger auf eine TextFont-Struktur, den wird durch 
die Routine "OpenDiskFont' in DO erhalten haben 

keine 

Diese Routine aktiviert einen Font im entsprechenden Ra¬ 
sterport. 


SetRast (RastPort,Color) (Al,DO) 
graphics.1ibrary 
-234 = -Sea 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 
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Erklärung: 


Routine : 

Library 
Offset : 
Parameter: 


Rückgabe : 
Erklärung: 


Routine 

Library 

Offset 

Parameter 


DO = Farbregisternummer, aus dem die Farbe entnommen 
werden soll, fürs zeichnen von Linien oder ausgeben 
von Texten 

Diese Routine setzt die Punktfarbe im entsprechenden 
RastPort. 


SetRGB4 (ViewPort, Register, rot, gelb, blau) (AO, DO, 
Dl, D2, D3) 
graphics.1ibrary 
-266 = -S120 

AO = Anfangsadresse der zu diesem Display gehörenden 
ViewPort-Struktur 

DO = Farbregisternummer, in dem die Farbänderung vorge¬ 
nommen werden sol 1 (0-31) 

Dl = Rotanteil der Farbe (Wert von 0-15) 

D2 = Gelbanteil der Farbe (Wert von 0-15) 

D3 = Blauanteil der Farbe (Wert von 0-15) 
keine 

Diese Routine lädt das angegebene Farbregister des ent¬ 
sprechenden ViewPorts mit dem gewünschten Wert. Die 
Farbänderung wird sofort sichtbar, die Copperlisten 
brauchen also nicht neu berechnet werden. 


SetSoftStyle (RastPort,Style,Enable) (Al,DO,Dl) 
graphics.1ibrary 
-90 = -S 5a 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

DO = Stylebyte welches den aktuellen Modus des Fonts 
wiederspiegelt. 

Stylenaie: Wert: Bit: Funktion: 

Normal 0 - normal 

Underline 1 0 unterstrichen 
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Bold 2 1 fett 

Italic 4 2 kursiv 

6 3 extended 

Dl = Enthält den Wert, der Auskunft darüber gibt, welche 
Styl es überhaupt zugelassen sind. Also die Style- 
maske. An besten Sie setzen Dl auf 15. 

Erklärung: Diese Routine setzt den Style-Modus in entsprechenden 
RastPort. Wenn Sie jetzt einen Text in diesen RastPort 
ausgeben, wird dieser entsprechend anders ausgegeben. 


Routine 

Library 

Offset 

Paraneter 

Rückgabe 

Erklärung 


SortGList (RastPort) (Al) 

graphics.1ibrarv 
-150 = -S S6 

Al = Zeiger auf 'RastPort'-Struktur 
keine 

Diese Routine sortiert das Gelsysten (Position etc.). Muß 
vor jeden 'DrawGList I)' aufgerufen werden! 


Routine 

Library 

Offset 

Paraneter 


Rückgabe : 
Erklärung: 


Text (RastPort,String,Count) (Al,A0,D0) 

graphics.1ibrarv 
-60 = -S 3 c 

Al = Zeiger auf RastPort-Struktur in den der Text dar- 
gestelIt werden sol1. 

A0 = Anfangsadresse des auszugebenen Textes. 

DO = Anzahl Buchstaben die ausgegeben werden sollen, 
keine 

Diese Routine gibt eine Anzahl von Buchstaben auf den 
Bildschirn aus. Allerdings an den aktuellen Koordinaten 
bzw. in der aktuellen Schriftfarbe. 
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Routine 

Library 

Offset 

Parameter 


Rückgabe : 
Erk Iärung: 


TextLength (RastPort,String,Count) (Al,A0,D0) 

graphics.1ibrarv 
-54 = -S36 

Al = Zeiger auf RastPort-Struktur in dem der entspre¬ 
chende Zeichensatz zu finden ist. 

AO = Anfangsadresse des Textes. 

DO = Anzahl Buchstaben die der Text besitzt 
in DO = Anzahl Punkte die der Text lang ist. 

Diese Routine gibt in DO die Anzahl Punkte zurück, die 
der Text lang ist. Die Textlänge bezieht sich immer auf 
die aktuelle Zeichenbreite des aktiven Zeichensatzes im 
übergebenen RastPort. 


Routine 

Library 
Of f set 
Parameter 
Rückgabe 
Erklärung 


ViewAdress 0 

intuition.1ibrarv 
-294 = -S126 
keine 

in DO = Anfangsadresse der aktuellen 'View'-Struktur 
Diese Routine gibt in DO einen Zeiger auf die aktive 
'View'-Struktur die vom System verwaltet wird zurück. 


Routine 

Library 
Of f set 
Parameter 
Rückgabe 
Erklärung 


ViewportAdress (Window) (AO) 

intuition. Iibrarv 
-300 = -S12c 

AO = Zeiger auf 'Window'-Struktur 
in DO = Anfangsadresse der aktuellen 'ViewPort'-Struktur 
Diese Routine gibt in DO einen Zeiger auf die zu diesem 
Window gehörende 'ViewPort'-Struktur zurück. 
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Anhang C - Die Programme der Diskette 

Auf der beiliegenden Diskette befinden sich alle 19 Programme 
die im Buch enthalten sind. Einmal als lauffähiges Programm und 
jeweils das dazugehörige Sourcc-Listing. 

Im Verzeichnis 'Programme' befinden sich folgende laufähige 
Programme (Durch aufrufen des Namens werden sie gestartet): 

AnimateBOB 

BitMap 

BOB-Collision 

Bru sh -Transformer 

Coppc r 

Display 

Dualplayficld 

Hires 

IFF-Loader 

Laufschrift 

MoveBOB 

OpenFont 

RastcrIRQ 

RastcrlRQ(Servcr) 

Screcn 
Scrolling 
SimplcSprite 
Soft IRQ 
VSprites 


Im Verzeichnis ‘Listings' befinden sich alle Source-Codes, unter 
dem selben Namen wie oben aufgeführt. 
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Stichwortverzeichnis 


Stichwortverzeichnis 

Acccssors 108 

AddAnimOb 191 

AddBOB 181 

AddlntServer 101 

AddVSprite 164 

After 212 

AlgoStyle 9 

ASCII-Codes 139 

AskSoftStyle 123 

Attached-Sprites 143 

Animate 191 

Animation 190 

Animationssystem 155 

AnimBOB 198 

AnimCotnp-Struktur 195 

AnimOb-Struktur 192 

AnimOb-Routine 195 

B_Flags 177 

Before 212 

Bitmap 1,4 

Bitmap-Struktur 2 

Blittcr 155 

Blitter-Objekte 171 

BMHD-Chunk-Struktur 233 

BOB 175 

BOB-Routincn 180 

BOB-Struktur 175 

BOBComp 178 

BOBs 171 

BODY-Chunk-Struktur 234 

BoldSmear 108 

Borderline 213 
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Stichwortverzeichnis 


Brush 

247 

CBuinp 

66 

ChangeSprite 

149 

C h u n k 

232 

CloseFont 

112 

CloseScrcen 

80 

CloseWindow 

87 

CloscWorkbench 

231 

CMAP-Chunk-Stru ktur 

234 

CMove 

66 

Colisionsabfrage 

213 

CollMask 

213 

ColorMap 

14 

CoinpFlags 

196 

Copper 

10, 64 

Copperroutinen 

66 

CWait 

67 

DBuffer 

178 

DBufPackct-Stru ktur 

189 

Display 

24 

DoCollision 

215 

Double-Bu ffering 

62, 188 

DrawGList 

165, 182 

DrawMode 

125 

Dualplayfield 

42 

Extra-Halfbritc 

52 

Farbdarstellung 

3, 15 

Fenster 

83 

Fensterdatenstruktur 

87, 88 

Feuerknopf 

135 

Fonts 

105 
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Stichwortverzeichnis 


Forbid 

231 

FORM-Cluink-Stukt ur 

233 

FreeColorMap 

16 

FrccCprList 

22 

FreeSprite 

148 

FrceVPortCopLists 

22 

Gel-Systcin 

155 

Geisinfo 

8 

Gelslnfo-Struktur 

156 

GetColorMap 

16 

GetRGB4 

18 

GetSpritc 

148 

Grafikmodi 

33 

HeadComp 

195 

HeadOb 

191, 198 

Hircs-Modi 

33, 35 

HitMask 

214 

Hold and Modify (HAM) 

34 

IDCMP-Flags 

84, 85 

IFF-Standart 

232 

ImagcData 

162, 174 

ImagcShadow 

177 

InitBitMap 

20 

InitGels 

157, 181 

InitMasks 

181 

InitRastPort 

7, 20 

InitView 

20 

InitVPort 

21 

Interrupt-Priorität 

95 

Interrupt-Struktur 

101 

Interru ptebene 

94 

Interrupts 

94 

Intuition 

77 
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Stichwortverzeichnis 


IText-Struktur 

114 

Joystick 

134 

Joystickabfragc 

136 

LoadRGB4 

17 

LoadView 

00 

Laufschriften 

126 

MakeScrcen 

23 

MakcVPort 

21 

Mask 

8 

Maus 

134 

Maustasten 

135 

Mauszeiger 

141 

McMask 

214 

Message 

107 

Modulo 

109 

MOVE 

64, 124 

MoveSprite 

149 

MrgCop 

21 

OpcnDiskFont 

111 

OpcnScrccn 

80 

Open Window 

87 

OSArgs-Struktur 

78 

OW-Args-Stru ktur 

83 

Packvorgang 

235 

Pen 

125 

Perinit 

231 

PlaneOnOff 

175 

PlancPick 

175 

PlanePointer 

2 

Pri m i t i ve G r a fi kprogramm i e ru n g 

1 
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Stichwortverzeichnis 


PrintIText 

114 

Prioritäten 

212 

Rasinfo 

14, 18 

Rasinfo-Struktur 

19 

Raster-Interrupt 

98 

Raster-IRQ 

12 

Rasterstrahl 

10, 64 

Rasterzeile 

98 

RastPort 

5 

RcmakcDisplay 

24 

RemIBOB 

182 

RemlntServer 

102 

RemFont 

112 

RemVSprite 

164 

RethinkDisplay 

23 

SaveBuffer 

177 

Scrccn 

77 

Screen_Typ-Flag 

79 

Screendatenst ru ktur 

80, 81 

ScreenRastPort 

82 

Scrolling 

53 

Scrollraster 

126 

Sequence 

190 

SctAPcn 

125 

SctBPcn 

125 

SetCollision 

215 

SetDrMd 

125 

SetFont 

111 

SetSoftStyle 

123 

SetRast 

124 

SetRGB4 

17 

SimpleSprites 

141 

SimplcSpritc-Stru ktur 

146 

SKIP 

64 
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Stichwortverzeichnis 


Softinterrupt 

96 

SortGlist 

165, 182 

Sprite-Flag 

149 

Sprit eControlWords 

143 

Sprites 

141 

SprRsvrd 

158 

Stru ktur 

1 

Tastatur 

139 

Text 

115 

Text-Attr-Struktur 

112 

Texte 

113 

TextFont-Stru ktur 

106 

TextLength 

122 

Textpointer 

127 

Textroutinen 

121 

Timer 

197 

TimeSet 

197 

TransBOB 

248 

Unterbrechungen 

94 

User-Copperliste 

65 

User-Interrupt 

96 

VBeamPos 

188 

Vertikal-Blank-IRQ 

10 

View 

10 

ViewAdress 

23, 24 

ViewPort 

12 

ViewPort Adress 

23 

VP-Hidc 

14 

VSpritc-Strukt ur 

159, 172 

VSprites 

156 

WAIT 

64 

WaitTOF 

188 


328 



Stichwortverzeichnis 


Windo\v_Typ 

86 

Zciehensätzc 

105 
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Grafik in Assembler auf dem Amiga 


WICHTIGE MERKMALE: 

Zahlreiche Beispielprogramme sorgen dafür, daß das Erlernte nicht nur 
Theorie bleibt. Dabei wird auch auf Scrolling, HAM-Modus, Dual Play Field, 
Copper-Programmierung, Fonts laden und anzeigen, Simple Sprites erzeu¬ 
gen, eingegangen. Auch das komplette Animationssystem wird beschrie¬ 
ben, darunter V-Sprites, Bobs, doppeltgepufferte Bobs, animierte Bobs, 
Collision-Abfrage und andere. Ferner die Interrupt-Programmierung, die 
Joystick-Abfrage in 16 Richtungen und die Erzeugung von Laufschriften. 
Schließlich erlaubt der IFF-Standard, Bilder und Brushes in Ihre eigenen 
Programme einzubauen. 


AUS DEM INHALT: 

Grafikmodi: 

Hold and Modify (4096 Farben) • Hires • Dual Play Field • Scrolling 
Copper: 

User Copper Liste • Copper Routinen des Systems 
Programmierung unter Intuition: 

Screens öffnen/schließen • Fenster öffnen/schließen 
Interrupts: 

User IRQ • Raster IRQ 
Fonts: 

Aufbau von Fonts • Texte ausgeben • Laufschriften 
Joystick-Abfrage: 

Tastatur-Abfrage 
Simple Sprites: 

Erzeugung und Aufbau 
Das Animationssystem: 

V-Sprites • Bobs • Bob-Routinen • Animation • Collision 
IFF Standard: 

Screens • Brushes 
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